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Appleworks au travail 
Par À. Gargadennec et JM. Jego - 188 pages - 160 FF 

Appleworks est un logiciel intégré qui permet de résoudre les problèmes courants ren- 
contrés en entreprise. Cet ouvrage est d'abord un livre d'apprentissage pour s'initier à 
Appleworks au travers d'exemples concrets. Il traite successivement des bases de don- 
nées du traitement de texte et du tableau de calcul, ceci avec une difficulté croissante. 
Fonctionne sur Apple Il e, Il c et 11 GS. 







Clefs pour Apple Il c et Il e 65C02 
par Nicole Bréaud-Pouliquen - 180 pages - 145 FF 

Ce livre est un mémento qui permet d'accéder facilement aux informations telles que 
les commandes Basic ou systèmes, les caractères, les messages d'erreur, les adresses 
et jeu d'instructions de 65 C 02. Cet ouvrage est aussi un recueil d'astuces qui permet- 
tent de justifier un texte à droite, de programmer la souris, de transférer une image en 
mémoire auxiliaire. 

Un mémento indispensable à tout possesseurs d'Apple Il et d'Apple Il e 65C02. 






Clefs pour Apple Il GS 
Deuxième édition 

par Nicole Bréaud-Pouliquen - 216 pages - 250 FF 

Cet ouvrage offre une synthèse des spécificités du matériel et des logiciels de dévelop- 
pement et permet d'accéder à des informations fondamentales concernant l'organisation 
matérielle : mémoires et ressources graphiques, microprocesseur et jeu d'instructions, 
entrées/sorties.… L'auteur décrit en détail les différents logiciels de développement 
{moniteur, système APW avec son éditeur et son micro-assembleur) et donne un réper- 
toire de l'ensemble des outils de bureau. Un chapitre est consacré aux appels du Prodos 
16. Enfin, plusieurs exemples illustrent toutes les possibilités de programmation de 
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Tous Apple // 


CEA 
COLE 
Destinée aux amateurs de mots croisés ou de Scrabble, 
cette base de données, due à Roland Jost, permet de 
trouver un mot de longueur donnée dont on ne connaît 
que quelques lettres. 





Ordico contient plus de 15 000 mots classés en 70 
rubriques. 

Recherches et affichages sont rapides : un fichier de 
1 500 mots est chargé en moins de 10 secondes et 
exploité quasi-instantanément. 

Il'est bien sûr possible d'ajouter des termes aux divers 
fichiers, de créer de nouvelles rubriques. 





Voici quelques rubriques : 


1ère face : 

Acteurs, Animaux, Armes/guerres, Auteurs américains, 
Auteurs anglais, Auteurs français, Chimie, Cinéastes, 
Coureurs cyclistes, Départements/régions, 
Dieux/déesses, Familles végétales, Femmes célèbres, 
Hommes politiques, Iles, Jeux/sports, Minéraux, 
Montagnes, Musiciens jazz, Musiciens, Parties du 
corps, Peintres étrangers, Peintres français, 
Rivières/leuves, Saints/saintes, Savants/inventeurs, 
Sculpteurs, végétaux, Vêtements, Villes 

2ème face : 

Athlètes, Boxeurs, Cantatrices, Cols, Cosmonautes, 
Coureurs automobiles, Déserts, Détroits, Doctrines 
philosophiques, Drogues, Escrimeurs, Explorateurs, 
Gymnastes, Haltérophiles, Judokas, Lutteurs, 
Maladies, Maréchaux de France, Médicaments, 
Nageurs, Patineurs, Poissons, Présidents américains, 
Skieurs, Ski nordique, Unités, Villes olympiques 




























Exemples : 

Un musicien dont le nom comporte 7 lettres, les 
2ème et 5ème sont des ‘E’. Tapez : -E--E--—. 
Vous obtenez instantanément : 


BENNETT DEBOECK DELEEUW GEVAERT 
LESUEUR PEDRELL PEETERS WELLESZ 







Dans les acteurs, -A- — — —E vous donnerait : 
CARETTE PALANCE RACETTE RANDONE RAYMONE 
VALLONE 

nn ne 

CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 









_—————— dans les femmes célèbres donnerait 
32 noms. 





Disquette double face et documentation 
200,00 F. Bon de commande p. 74 
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Pour éviter les saisies fastidieuses 
et pas toujours fiables, Pom’s 
met à votre disposition des 
disquettes d'accompagnement qui 
regroupent l'ensemble des 
programmes de la revue. 


Apple // 


Pour les Apple //, deux types de 

disquettes : 

- 140 Ko, 5,25 pouces, au prix 
de 60,00 F, fichiers en format 
DOS 3.3 au recto, en format 
ProDOS au verso. L'ensemble 
des programmes de ce numéro 
est conçu pour fonctionner 
avec ProDOS ; 

- 800 Ko, 3,5 pouces pour 
Unidisk, au prix de 80.00 F, 
fichiers en format Prol)OS 
seulement. 


Pom'’s n'a pas encore de licence 
d'utilisation du fichier PRODOS 
aussi, la face ProDOS n'est pas 
bootable. A l'aide du programme 
FILER ou de la disquette 
Utilitaires Système, installer les 
fichiers PRODOS et BASIC.SYSTEM 
sur la face ProDOS : la disquette 
pourra faire démarrer le système. 


Macintosh 


Si vous avez la disquette Mac 30, 
tout est simple puisque vous 
disposez des programmes prêts à 
l'emploi : ce sont des applications 
‘double-cliquables’ et autonomes. 
Les fichiers ‘source’ autorisent 
des modifications — à condition 
de détenir le ‘Système de 
développement 68000” — de 
l'application “TPom’s”. 

Si vous n'avez pas la disquette 
Mac 30, et afin de pouvoir utiliser 
“TPom'’s”, il vous faudra saisir 


{} 








les fichiers nécessaires à sa 
création avec l'éditeur “Edit” 
(Système de développement 


ment du fichier ‘T_Pom’s.Job”’ 





depuis l'application “Exec” 
(toujours le Système de dévelop- 
pement 68000). 


68000), puis provoquer le traite- « 


Fichiers et programmes sur la disquette Apple // 


DEMO.DECOMPACT Programme Basic de démonstration (RUN ou —) 


DECOMPACT.OBJ  Routine en assembleur 65816 (BLOAD) 
DECOMPACT.S Source en format TEXT 

POMS1 Image GSPaint utilisée par DEMO.DECOMPACT 
POMS2 à POMS7 Idem, mais seulement sur disquettes 800 Ko 
DHGRTOOL Programme Basic à lancer par RUN ou par — 
DHGRTOOL.S Source en format TEXT 

DHGRTOOL.O Routine en asembleur 

HARD Routine de HardCopie 

DEMOTOOL Programme de démonstration des routines 
IMHGR1 Image HGR utilisé pour la démonstration 
IM.HGR2 Image HGR utilisé pour la démonstration 
IM.DHGR Image DHGR utilisé pour la démonstration (800 Ko seulement) 
SOURIS.LASER Jeu Basic (RUN ou —) 

LASER.START Programme Basic de lancement du jeu en assembleur (RUN ou —) 
LASER.MOUSE 1er fichier lancé par LASER.START 
LASER.SBR 2ème fichier lancé par LASER.START 
SOURIS.DEMO Démonstration des routines Souris (RUN ou —) 
SOURIS.C Routine assembleur 

SETCURSOR.C Routine assembleur 

INTERFACE.C Routine assembleur 

INVERSION.C Routine assembleur 

SOURIS Source assembleur en format TEXT 
SETCURSOR Source assembleur en format TEXT 
INTERFACE Source assembleur en format TEXT 
INVERSION Source assembleur en format TEXT 

T.POMS Programme objet (BRUN ou —) 


T.POMS1 à T.POMS4 Sources en format TEXT 


Fichiers et programmes sur la disquette Macintosh 


Girl Image MacPaint 

Japanese Girl Image MacPaint 

Screen Editor Application 

T_Pom's Application 

T_Pom's.Asm Fichier d'assemblage MDS 68000 (Assembler) 
T_Pom's.Job Fichier ‘exec' MDS 68000 (Executive) 
T_Pom's.Link Fichier de ‘linkage’ MDS 68000 (Linker) 
T_Pom's.R Fichier de ressources MDS 68000 (RMaker) 


T_Pom's/1.Asm 
T_Pom's/2.Asm 
T_Pom's/3.Asm 
T_Pom's/4,Asm 


Fichier d'assemblage MDS 68000 (Assembler) 
Fichier d'assemblage MDS 68000 (Assembler) 
Fichier d'assemblage MDS 68000 (Assembler) 
Fichier d'assemblage MDS 68000 (Assembler) 
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Hervé Thiriez 


Voici donc bouclé le 30ème numéro de Pom'’s, numéro rajeuni par le prin- 
temps mais également par notre souci de qualité, y compris dans la présenta- 
tion. Pom's évolue, s'ouvre au GS, à la communication, à la télématique, 
bientôt au Mac SE et au Mac II ; ProDOS se doit de devenir la règle — la diver- 
sité des supports nous y contraint et c'est un bonne contrainte —, DOS 3.3 
est en passe de devenir exception. C'est le sens de l'évolution Apple, 
MEM/DOS s'appuie d'ailleurs déjà sur ProDOS qui est un pont avec les MFS et 
HFS du Mac. 

Le IIGS lui-même est un pont avec la ligne Mac : l'acquéreur du nouveau-né, 
plongé dans la volumineuse documentation distribuée par VIF ou dans le livre 
de J.-P. Curcio au PSI sera familier de la ToolBox et des routines QuickDraw 
de son appareil... et de celles du Mac. 


Dans ces pages, télématique toujours : après l'enregistrement des pages des 
serveurs Minitel, le téléchargement entre Apple via Minitel et téléphone, voici 
des programmes de récupération de l'annuaire électronique, sur Apple // et 
sur Macintosh. Votre câble de liaison ne chômera pas : votre Apple // et votre 
Mac serviront bientôt. 

La souris est à l'honneur : une routine pour en faciliter la gestion depuis le 
Basic — l'Applesoft est bien pauvre là encore — et un double jeu de réflexion 
construit autour de la souris, version Basic, version assembleur 65C02 (à vos 
kits….). 

Vous lirez également des bancs d'essai, MultiScribe, More 2 et la passion de 
nos rédacteurs : le billard. Quant à GSPaint et le Basic, il s’agit bien là de la 
première routine 65816 dans Pom's : ne doutez pas de l'extension de cette 
rubrique. 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Michel Duroc, Jean-Michel Gourévitch, Olivier 
Herz, Roland Jost, Philippe Mathieu, Benoît Mesnil, Gérard Michel, Christian Piard, 
Alain Raynaud, Jacques Rey, Hervé Thiriez, Bernard Toméno. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Berger-Levrault - 18, rue des Glacis - 54000 Nancy. Tél. : 83.35.61.44. 

Photo de couverture : CP & JLB. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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SPaint et Basic 


Après avoir craqué pour un 
superbe IIGs, il faut se rendre à 
l'évidence, que faire sans l'ombre 
d'une documentation dans le 
carton, sans un seul renseigne- 
ment sur Prodos 16, sur le port 
imprimante (que refusent obstiné- 
ment certains programmes), sans 
parler de la synthèse sonore qui 
avait charmé nos oreilles dans la 
boutique ? Il n'y a que ‘Clefs 
pour Apple IIGs’ qui contient 
beaucoup de choses encore bien 
vagues... (La documentation 
technique maintenant disponible, 
3000 pages en 6 classeurs, 
2000,00 F, peut rendre le service 
espéré). 


Nous disposons, bien sûr, de 
GS/Paint, c'est beau et 
spectaculaire, mais que faire de 
ces images que l'on ne peut 
manipuler. qu'avec le 
programme ? Un fichier de 32 
Ko, en format écran, ne se 
manipule pas facilement sous 
environnement Basic.system. 
Aussi était-il tentant de charger en 
mémoire les images sous format 
GS/Paint et de les transférer en 
page Super Haute Résolution à 
l'aide d'une routine de 
décompactage. 


Structure d'une 
image GS 


La page Super HGR se trouve 
dans le banc de mémoire $E1 
($00 étant le banc accessible par 
Basic.sytem et Prodos 8), elle 
débute en $2000 pour finir en 
$9FFF. L'image en elle-même est 
constituée de 200 fois 160 octets 
situés entre $2000 et $S9CFF, 
chaque demi-octet représentant 1 
pixel (en mode 320 x 200 adopté 
par GS/Paint) qui peut prendre 16 
valeurs définissant le numéro de 
rang d'une des couleurs d'une 
palette. 

Cette palette est formée d'une 


suite de 16 fois deux octets qui 
par leurs combinaisons de valeurs 
constituent l'une des 4096 
nuances, l'emplacement réservé 
commence en $9E00 et se termine 
en $9FFF ce qui permet de loger 
16 palettes différentes ! 


De $9D00 à $9DC7 se trouvent 
200 octets qui contrôlent chacun 
une ligne du dessin ; la partie 
basse de ces octets, en particulier, 
désigne la palette qui est active 
pour une ligne donnée ce qui 
permet d'afficher 256 nuances 
dans une page. Dans le cas de 
GS/Paint une seule palette est 
active, ce qui simplifie bien les 
choses. 


Analysons maintenant la structure 
d'un fichier image compactée par 
GS/Paint. 


On reconnaît facilement que les 
32 premiers octets représentent la 
palette de couleurs, viennent 
ensuite 514 octets qui déroutent 
quelque peu et qui constituent 
finalement les canevas 
disponibles sur la ligne inférieure 
de l'écran de GS/Paint. Ces 
octets ne seront d'aucune utilité 
pour la transcription du dessin. 
L'image proprement dite 
commence à partir du $222ème 
octet du fichier. 


Pour compacter une image, il faut 
isoler les groupes de pixels 
identiques des suites de points 
différents les uns des autres. Le 
fichier compacté sera alors 
constitué de pointeurs qui 
indiquent si l'on doit multiplier x 
fois l'octet suivant, ou bien 
recopier les x octets qui suivent 
directement. 


Le décompactage 


Dans le cas de GS/Paint, la valeur 
donnée au pointeur va prendre 
trois significations différentes : 


+ Un pointeur inférieur à $40 
indique que nous avons à faire 


Jacques Key 


à un segment contenant des 
octets non identiques, le 
pointeur donne la longueur du 
segment. 

+ Les valeurs comprises entre 
$CO et $ E7 ainsi que $41, 
$42, $44, $45 et $46 nous 
invitent à multiplier l'octet 
suivant de 2 à 160 fois : pour 
cela, $CO vaut coefficient 4, 
$C1 vaut 8, $C2 = 12 et ainsi 
de suite de 4 en 4 jusqu'à $E7 
= 160; les coefficients x2, 
ROUES UXxG et x7 étant 
représentés par les valeurs $41 
à $46. 


+ Si le pointeur est compris entre 


$80 et $CO, il faut prendre en 
compte les quatre octets qui 
suivent et reproduire cette 
combinaison x fois. La valeur 
de x étant trouvée en 
retranchant $80 du contenu du 
pointeur. 


L'exemple en encadré éclaircira le 
codage. 


La routine de décompactage est 
courte (moins de 256 octets), elle 
a été assemblée en $2000 en 
utilisant le Mini-moniteur, faute 
de mieux, le fichier ‘source’ listé 
ci-contre et figurant sur la 
disquette d'accompagnement est 
un fichier texte Créé sur 
Appleworks en respectant la 
syntaxe approximative d'un 
assembleur. Il est récupérable 
avec tout assembleur. 


Le but était avant tout d'utiliser 
des instructions spécifiques du 
processeur 65C816, les transferts 
de blocs d'octets étant effectués à 
l'aide de l'instruction MVN qui 
copie A octets de l'adresse X vers 
l'adresse Y (X et Y sur 16 bits). 
Les bancs de mémoire source et 
destination sont indiqués par les 
deux octets qui suivent 
l'instruction MVN. 


Il faut signaler deux contraintes 
importantes à l'utilisation de 
MVN : 
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+ le registre B (registre indi- 
quant le banc de donnée actif) 
conserve la valeur du banc de 
destination en fin d'instruction, il 
est donc nécessaire de le 
sauvegarder par PHB (empiler B) 
avant MVN et le restituer par PLB 
après ; 
+ si l'on travaille en mode natif 
mixte (A sur 8 bits, X et Y en 
16 bits), ce qui est le cas de la 
routine, il faut impérativement 
annuler l'octet haut du registre A 
car l'instruction MVN décompte 
tout de même sur 16 bits (utiliser 
LDA £00 puis XBA avant de 
charger dans A le nombre 
d'octets à transférer). 


La routine comportant quelques 
JSR internes (deux sous-routines 
de décomptage) ne peut être 
relogée qu'après des modifica- 
tions très simples à réaliser. Pour 
lister le code objet en moniteur, 
ne pas oublier de taper au 
préalable 0=x pour que le 
désassemblage se fasse sans 
erreurs et reconnaisse les codes 
sur 16 bits (la lettre x doit être 
tapée en minuscule). 


L'adresse de chargement du 
fichier image compacté est 
$2100, pour la changer, modifier 
la valeur du 13ème octet. 

Le deuxième octet contient la 
valeur qui permet la commutation 
du registre $C029 en mode Super 
HGR. Si l'on met $41 l'image est 
écrite mais l'écran reste en mode 
texte, il faut alors taper POKkE 
49193,161 pour l'afficher et 
POKE 49193,65 pour revenir au 
texte ($CO29:A1 et SCO29:41 
sous moniteur). 

En plaçant $A1 dans le deuxième 
octet, le décompactage a lieu en 
direct ce qui peut créer un certain 
effet d'animation. 


Lorsqu'on se trouve en Super 
HGR, pour revenir au mode texte 
depuis le basic, seul le poke cité 
plus haut est actif. Par contre, 
sous moniteur, taper CTRL-T puis 
Return. 


Le programme DEMO.DE- 
COMPACT illustre l'utilisation 


de la routine. c 
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Source DECOMPACT.S 


* 


* Version 





1.4 — J, REY Février/Mars 1987 * 
ORG $2000 
= $EB Pointe sur la zone de chargement de l'image compactée 
= $ED ‘Pointe sur la zone de la page super HGR 
= $EF ; Compteur d'octets 
= $FA ;Compteur de transfert 
= $co29 # Vidéo Sélect Register : commutateur de résolution vidéo 


AÉÉÉARARÈRERAR Initialisation **#####RARARRRE 


* 
INIT 


* 


#############4* Transfert de la palette *#*###n#x #x####x 


À 


TRANSPAL 


RAZ 


* 


##############*% Analyse de l'image compactée *#*##########N# Rx 


* 
DEBIMAG 


* 


LECPOINT 


* 


OCTMULT 


SUPCO 


SUITE 


LECPIX 


LDA £41 ;Ou LDA £A1 pour voir l'image se décompacter 
STA VSR Permet la linéarisation des adresses super HGR 
STZ ADSOU sinitialisation des adresses source et 

STZ ADDES destination 

LDA £21 ‘Image compactée chargée à partir de 52100 

STA ADSOU+1 

LDA £20 ‘Début d'image super HGR en $E1/2000 

STA ADDES+1 

CLC 

XCE Passage en mode natif 65C816 

REP £10 Adoption du mode mixte À = 8 bits, X et Y = 16 bits 


PHB sSauvegarde sur la pile du N° de banc de données actuel 
LDA £00 

XBA sAnnule les 8 bits de poids fort de À 

LDA £1F ‘La palette comporte 32 octets 

LDX ADSOU Récupération de l'adresse source 

LDY £9E00 sInit de l'adresse de destination de la palette 
MVN 00E1 ;Transfert de À octets du banc 00 vers El 

LDX £00C7 

STZ 9D00,X sRemise à zéro de la zone Scan Line Control Bloc 
DEX 200 octets 

BPL RAZ 

PLB ‘On se replace dans Île banc 00 (B = El après MVN) 


LDA £22 
STA ADSOU 
CLC 

LDA ADSOU+1 
ADC £02 


STA ADSOU+1 ;Premier pointeur d'image situé au $222 eme octet 


LDA (ADSOU) ;Récupère un pointeur 
CMP £40 


BCC TRANSOCT ;Transfert d'une segment d'octets non identiques 


CMP £C0 


BCS SUPCO Le pointeur est un multiplicateur de 4 en 4 


CMP £80 


BCS TRANS4 ; Transfert d'une suite de 4 octets reproduite plusieurs fois 


AND £0F Le pointeur est un multiplicateur par 2,3,5,6 où 7? 
INC ; (valeur comprise entre $41 et 546) 

BRA SUITE 

SEC ;OCTMULT commence ici si pointeur >=» à $C0 

SBC £3F ;Transforme les valeurs du pointeur comprises 

ASL entre C0 et E7 en une valeur de multiplication 

ASL sd'octets comprise entre 4 et 160 (de 4 en 4) 

STA COMP1 sInitialise le compteur 


JSR INCADSOU ;Incrémente l'adresse source 


LDA (ADSOU) ;Récupère la valeur de l'octet 'Pixel' à multiplier 
LDY £00E1 

PHY Sauve sur la pile le N° de banc source et destination 
PLB :Commute sur le banc destination 

STA (ADDES) ;Ecrit dans la page Graphique 

PLB ;Commute sur le banc source 

JSR INCADDES ;Incrémente l'adresse de destination 

DEC COMP1 

BNE LECPIX ‘On recommence autant que nécessaire 


JSR INCADSOU ;Passe au pointeur suivant 
BRA LECPOINT ;Branche au début de l'analyse 









* 


TRANS4 SEC 


SBC £80 ;Le mutiplicateur va de $0 à $A7 (1 à 40 fois 4 octets) 
STA COMP2 ;Que l'on range dans ie compteur de transfert 
LDA £03 ;Transfert d'une suite de 4 octets 


TRANSOCT STA COMP1 


Début routine de multiplication de groupes de 4 octets 


JSR INCADSOU ;Pour se placer sur le premier octet de la suite 


ENCORE PHB Sauve le banc source 


LDA £00 
XBA sAnnule l'octet haut de À 
LDA COMP1 ‘Nombre d'octets à transférer 
LDX ADSOU Venant du banc 00 
LDY ADDES ;Vers banc El 
MVN O00E1 ‘Et hop ! c'est transféré ! 
PLB ‘Retour au banc de départ 
BOUCLE JSR INCADDES ;On avance de deux Pixels (un octet) 
LDA COMP2 
BNE SAUT ; Si transferts multiples saute incrémentation de 
ÿ l'adresse source 
JSR ADSOU ;Incrémente l'adresse source 
SAUT DEC COMP1 
BPL BOUCLE ‘Avance les adresses du nombre d'octet transféré 
LDA £03 
STA COMP1 
DEC COMP2 
BPL ENCORE ‘À nouveau les quatre mêmes octets 
STZ COMP2 


BRA LECPOINT ;C'est pas fini, aux suivants ! 


* 
Rhrttttiiétttt* SOUS routines *fr#ratéreesenne 


* 


INCADSOU INC ADSOU sIncrémente la partie basse et haute de 
BNE RETI ;source 
INC ADSOU+1] 

RETI RTS 


# 


INCADDES INC ADDES 


l'adresse 


Incrémente l'adresse des pixels dans la page 





Récapitulation 
DECOMPACT.OBJ 


Après avoir saisi cette 
récapitulation sous moniteur, 
vous la sauvegarderez par : 
BSAVE DECOMPACT.OBJ,A$1000,LS$101 


1000:A9 A1 8D 29 CO 64 EB 64 
1008:ED 64 FA A9 21 85 EC A9 
1010:20 85 EE 18 FB C2 10 8B 
1018:A9 00 EB A9 1F A6 EB A0 
1020:00 9E 54 El 00 A2 C7 00 
1028:9E 00 9D CA 10 FA AB A9 
1030:22 85 EB 18 A5 EC 69 02 
1038:85 EC B2 EB C9 40 90 34 
1040:C9 CO B0 09 C9 80 BO 25 
1048:29 OF 1A 80 05 38 E9 3F 
1050:0A 0A 85 EF 20 A1 20 B2 
1058:EB A0 El 00 5A AB 92 ED 
1060:AB 20 A8 20 C6 EF DO EF 
1068:20 A1 20 80 CD 38 E9 80 
1070:85 FA A9 03 85 EF 20 A1 
1078:20 8B A9 00 EB AS EF A6 
1080:EB A4 ED 54 El 00 AB 20 
1088:A8 20 A5 FA DO 03 20 A1 
1090:20 C6 EF 10 F2 A9 03 85 
1098:EF C6 FA 10 DC 64 FA 80 
10A0:99 E6 EB D0 02 E6 EC 60 
10A8:E6 ED D0 0B E6 EE A5 EE 


BNE RET2 écran super HGR 10B0:C9 9D D0 03 FA 38 FB 60 
INC ADDES+1 10B8:00 00 00 00 00 00 00 00 
ss Su À Vérifie si l'on n'est pas arrivé à la fin de la page D PS DA C9 CE C5 A0 
BNE RET2 ‘Non ? et bien continuons ! DUGE:CA C5 C3 CF CD DO CI C3 
* 10D0:AA AA AA AA AA AA AA AA 
FIN PLX :C'est fini, on dépile pour récupérer l'adresse de retour 10D8:AA AA AA AA AA AA AA AA 
SEC 10E0:A8 C3 A9 A0 CA AE AU D2 
XCE Retour au mode émulation 10E8:C5 D9 AO B0 B2 AF B8 B7 
RET2 RTS ;Au revoir ! 10F0:AA AA AA AA AA AA AA AA 
10F8:AA AA AA AA AA AA AA AA 
1100:00 


Programme 
DEMO.DECOMPACT 


Pour utiliser ce programme de démonstration, vous devez avoir sur 
la disquette 7 images graphiques type GS/Paint, sauvegardées sous 
les nom : POMSI, POMS2, POMS3... POMS7. C'est le cas si 
vous disposez la disquette d'accompagnement 3,5 pouces, 800Ko de 
Pom's. 


Selon le nombre d'images disponibles, modifier la ligne 140. 


5 REM #*+K*#####% Démo Décompact 

10 TEXT : HOME 

20 D$ = CHR$ (4):TYPES$ = ",T$CO,A$2100" 

Z5 PRINT D$"bloaddecompact.ob;j,a$2000" 

60 PRINT PRINT " Décompacteur d'image 
s GS/Paint" 

70 PRINT " RAHAAAAARARAEEAÉRÉÉAEÉERAAAHÉAX 
LE AU 

80 PRINT : PRINT " Par J. Rey  * Févri 
er/Mars 87 


85 SPEED= 100: PRINT PRINT 
50 PRINT "Nous allons voir apparaître une s 
uite ie 


100 


110 


120 


130 


135 


140 


150 


230 


240 


250 
260 


PRINT "d'images créées avec GS/Paint et 
cela r 
PRINT "sans l'aide du programme de dess 
ne Æ 
PRINT "La routine 'Décompact' permet d' 
utiliser" 
PRINT "ces dessins à partir d'un progra 
mme en ‘“: PRINT "BASIC." 
PRINT D$"bloadpomsl'";TYPES$S: CALL 8192: 
POKE 8193,161: POKE 49193,161: FORT = 1 
TO 2000: NEXT 
FOR X = 2 TO 7 
PRINT D$'"bloadPOMS"X; TYPES: CALL 8192: 
NEXT 
FOR X = 1 TC 5000: NEXT : HTAB l: VTAB 
6: CALL - 958: POKE 49193,65: SPEED= 25 
5 
PRINT : PRINT : PRINT : PRINT : PRINT : 
PRINT "Pour recommencer presser "Espace 
f": PRINT : PRINT "Pour quitter presser 
"ESC" "°: GET R$ 
IF R$ = CHRS$S (27) THEN HOME : END 
GOTO 135 
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La souris ? facile ! 


Pour gérer la souris, Apple 
propose actuellement deux 
méthodes : 

* en assembleur, en appelant des 
routines placées sur la ROM de la 
carte interface, 

+ en Applesoft, avec des séries 
complexes de PR#4 : PRINT 
CHRS$(O) : PR#O.. 


Aucune n'est totalement 
satisfaisante car elles exigent, de 
la part du programmeur, soit une 
parfaite connaissance du 6502, 
soit des acrobaties pour pouvoir 
gérer en Basic le moindre menu 
déroulant. 


Le programme proposé ici offre 
la possibilité d'utiliser en 
Applesoft des commandes 
structurées qui permettent la 
programmation rapide d'appli- 
cations complexes utilisant la 
souris. 


Les commandes 


Ces commandes utilisent l'éternel 
vecteur de l'ampersand -— ou 
esperluète pour les francophiles 
anglophobes — comme point 
d'entrée : 

& INIT (MOUSE) 

débute obligatoirement toute série 
d'instructions utilisant la souris, 
et remet à zéro les pointeurs 


& CLOSE (MOUSE) 
déconnecte la souris à la fin du 
programme 

& CURS (n) 

sélectionne la forme du curseur 
graphique matérialisant la 
position de la souris 


& WAIT (PRESS) 

attend que le bouton soit appuyé 
pour rendre la main au 
programme, et continue d'animer 
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le curseur en attendant 


& WAIT (NOPRESS) 
idem mais attend que le bouton 
soit relâché 


& WAIT (NEW PRESS) 
idem mais attend une nouvelle 
pression du bouton 


& WAIT (OUT [0,0 TO 
100,100]) 

attend une sortie du cadre 
graphique défini par les deux 
points de coordonnées 0,0 et 
100,100 


& WAIT (OUT [0,0 TO 
100,100] OR PRESS) 
idem mais on rend 
immédiatement la main si le 
bouton est activé 


S WATT ATOUT E0/ 0 TO 

100,100] OR NOPRESS) 
idem mais on rend 
immédiatement la main si le 
bouton est relâché 


& INVERSE (0,0 
= 10,6) 

inverse la fenêtre graphique 
déterminée par le point 0,0 sur 
une longueur de 10 octets (soit 10 
x 1 = 70 piælsl et sur une 
hauteur de 6 lignes 

& DATA (X,Y,BUT) 

place respectivement dans les 


LEN 


variables X,-Y et BUT 
l'abscisse, l'ordonnée de la 
souris et l'état du bouton 


(O=relâché, 1=appuyé) 


Exécution du 
programme 


Le programme se charge par la 
séquence d'instructions suivante : 


BLOAD SOURIS.C 

BLOAD SETCURSOR.C 
BRUN INTERFACE.C 
BLOAD INVERSION.C 


Alain Raynaud 


suivi des commandes: 
HGR : POKE -16302,0 


pour afficher la première page 
graphique en mode non-mixte. 

Il est recommandé de placer 
HIMEM: à 36608 ($8F00) avant 
le chargement de ces routines afin 


d'éviter leur écrasement 
intempestif. 
L'ensemble des routines 


fonctionne sans modification 
sous environnement DOS 3.3 ou 
ProDOS. Les sources ont été 
constitués avec l'assembleur 
ProCODE. 


En revanche, pour minimiser 
l'occupation mémoire du 
programme, aucun contrôle n'est 
effectué pour vérifier qu'il existe 
bien une souris en slot 4, si tel 
n'est pas le cas alors gare au 
plantage ! 


Occupation mémoire 


$9000 

début du fichier SOURIS. 
initialisation de la souris. 

appel de la routine en ROM 
correspondant au code d'appel 
$9200 

début du fichier INTERFACE. 
interprétation des commandes 
Basic et appel des routines des 
autres fichiers 

$S94F0 

début du fichier SETCURSOR. 
contient la table de formes 
(SHAPE) Applesoft matérialisant 
la souris 

S95C0 

début du fichier INVERSION, 
routine d'inversion de fenêtre 
graphique 

S9000 

début du DOS 








Sept formes sont définies dans le fichier REFUS PRICE CRUE 
SETCURSOR : SOURTS EQU S901C 


0 flèche 


AMPER LDA #$4C 


1 ciseau FA ree 
2 note de musique LDA  #<DEBUT 
3 croix STA $3F6 
LDA  #>DEBUT 
: stylo STA S$3F7 
crayon RTS 
6 document : 
: DEBUT CMP #5B code de WAIT 
ï, feuille BEQ WAITI 
Il vous est possible d'en définir d'autres sous la sn A 
contrainte d'espace mémoire indiquée ci-dessus. NE Het 
SETCURSOR place également aux adresses 2 et 3 la BEO CLOSE 
position de la forme sélectionnée. UNE POP MAX 
7] BEQ  DATAI 
(ANT à CMP. #59E 
— BEQ ENV 
SNTX RTS 


PAR ATEN TE PLU T) AIT GROTTES Wal! JMP  WAIT 


Programme SOURIS.DEMO  ‘", 1 7, 


CLOSE! 


5 PRINT CHR$ (4) "BLOAD SETCURSOR.C" SR 
6 PRINT CHRS (4) "BLOAD SOURIS.C" “ter SE 
7 PRINT CHRS (4) "BRUN INTERFACE. C" HCS  SNTX 
8 PRINT CHR$ {4) "BLOAD INVERSION.C" MR + HUE 
9 HGR : POKE - 16302,0 _ PAT 
10 & INIT(MOUSE) CMP 4" 
20 & CURS(VINT ( RND (1) * 7 # 1)) HNE  SNTX 
30 & INVERSE (0,0: LEN = 20,191) ed te 
40 & CURS( INT ( RND (1) * 7 # 1)) Le 
50 & WAIT (OUTI0,0 TO 140,191] OR PRESS) LDA  SAI 
60 EU DATA N(X, Y, DUT) ETS AU 
70 IF BUT > 0 THEN 200 Lie 4 ET 
80 & INVERSE (0,0: LEN - 40,191) SR SEIO 
JO ES QICURS NINTN(ERND TITI Et HUM FA 
100 & WAIT (OUTI140,0 TO 279,191] OR LT 
PRESS) 1,5.) ER AE 
MIO SG ODATA (x, Tr; BUT HNE SNA 
120 IF BUT > O THEN 200 JEk SKI 
130 & INVERSE (0,0: LEN - 40,191) Don. LL > MR PaE 
140 GOTO 40 JSK SH 
200 & CLOSE (MOUSE) CMP FD 


HNE  SNTX 
IR SH 
IR Se 
ISR SLT 


Source INTERFACE LDA SA 
Assembleur ProCODE SYA  TARI 


USR  SHI 
ASK  S$DDb/ 


210 TEXT 


AAANAA AA AAA AT RAMEN AE AAA AA NAN A AA AE JSK SFIO 
È LDA  $SAI 
À porege cute M Ereters lesceages der La 2) SA  TABC 4 
4 ; LDA  #>TAH 
# past Dies : MOURES avec de besster À TA SI 
Û ; LDA  #<T'AR 
4 fnsteuct bons : Ê SA 50 
È ca us er ct Se ASR S95c'0 : INVERSE 
4 SAINT (MOUSE) # JUMP  SBI 

3 4 AWALT (PRESS) “ 
AWA LT (NOPRESS) 4 
4 AWALT(OUTHO, 6 TO 1,11) . SNTXN RES 
A AWA LM CONMILO, OU M , LT OK PRESS) # 
+ WA LT (OUTIO, O PO OL, LL OK NOPKENH) 4 GO JSR $SBI 
+ AWALTONEN PRESS) . CME, RU? 
À aUtIKS (1) n BEQ  CUR 
A A CLOSE (MOUSE) 0 LDY  #>CL s4 CLOSE (MOUSE) 
4 ADATAUX, Ÿ, HUE) « LDX #<Cl 
: A INVERSE CA, de LEN- LU, 4) * JSR VERT 
à Ù HCS  SNTXS 
AAAAMAAARARARANARARRAANAAARAUAAAAAAAA AAA AAA AA 4 LDA S$C412 ; (Set Mouse) 
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11 JSR 


CUR JSR 


SNTX4 RTS 
DATA JSR 


USR 
LDA 
SJ'A 
LDA 
STA 
JSR 
JSR 
LDA 
SA 
LDA 
SIA 
JSK 
JSR 
LDA 
SA 
LDA 
STA 
JSR 
CMP 
BNEF 
1DA 
JSR 
LDY 
JSR 
LDX 
LDY 
JSk 
LDA 
LDY 
JSK 
LDX 
LDY 
JSK 
LDA 
AND 
TAY 
JSR 
LDX 
LDY 
JSR 
UMP 
SNTX2 RTS 


Wal JSR 
CMP 
BNE 
JSkR 
LDX 
STX 
LDX 
STX 
LDY 


11+1 
#500 
#5c4 
#540 
$c400 
$B1 


$B1 
#'R' 
SNTXS5 
$SB1 
f's! 
SNTX5 
$B1 

# « { LU 
$B1 
$DD6 7? 
$£10C 
SAO 
SNTX4 
SA 
$94E7 
SB1 

# | LU 
SNTX4 
$B1 


$B1 

# L { LU 
SNTX4 
$B1 
SDFE 3 
$83 
TAMP1 
$84 
TJ'AMP2 
$H1 
$SDFES 
583 
l'AB 
S84 
l'AB#1 
$B1 
SDFE 3 
$#1 
l'AB12 
584 
TAB#3 
5B/ 

# t] L 
SNTX4 
#6 
SOURIS 
s8 
S£301 
l'AB 
lAH+1 
SEH?2H 
S/ 

sé 
SEE? 
J'AMP 1 
T'AMP? 
SEB2B 
ae fo) 
#580 


$£301 
TAB 12 
l'ABt 1 
$SEB2B 
$B1 


$B1 

# u { ’ 
SNTX2 
$B1 
$B8 
T'AMP 1 
$B9 
T'AMP2 
#>PR 





# 


‘ 


’ 


& CURS{n)} 


4 DATA (X,Y, BUT) 


4 WAIT(PRESS) 


S1 


S2 


SNTX3 


LE) 


RTS 
LDX 
STX 
LDX 
STX 
LDY 
LDX 
JSR 
BNE 
JSR 
JSR 
USR 
LDA 
STA 
LDA 
STA 
JSR 
CMP 
BNE 
JSR 
JSR 
JSR 
LDA 
STA 
JSR 
CMP 
BNE 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
USR 
CMP 
BNE 
USR 
JSR 
JSK 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
CMP 
BNE 
JSR 


#<PR 
VERIF 
S1 

#0 
SOURIS 
$B1 
TAMP1 ; & WAIT(NOPRESS) 
$B8 
TAMP 2 
$B9 
#>NO 
#<NO 
VERIF 
S2 

#1 
SOURIS 
$B1 
TAMP1 ; 6€ WAIT(NEW PRESS) 
$B8 
TAMP2 
$B9 
$B7 
#5B8F ; code de NEW 
s3 

$B1 
#>PR 
#<PR 
VERIF 
SNTX2 
#5 
SOURIS 
SHI 


TAMP ! 
5BB 
TAMP? 
SH3 
#>OU 5 & WAIT(OUTI0,0 10 140,907) 
#<ou 
VERIF 
SNTX2 
sB1 
S$DD6 / 
$EI10C 
$AI 
TAB 
$AO 
TAB# 1 
$H/ 

# Li * 1} 
SNTXJ3 
$BI 
S$SDD6 / 
$SE10c 
$SA1 
TAB+2 
SB/ 
#sC1 ÿ code de "0 
SNTX 1 
$B1 
SDD6 / 
st10C 
$Al 
TAB +3 
$SAU 
l'AB +4 
SH/ 

# 1 | n L 
SNTX 1 
$BI 
$DD6 / 
$E10C 
$SAI 
TAB+° 
#<TAR 
50 
#>T'AB 
$1 

$B/ 

LAS 1 
SNTX I 
$Bl 
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CMP #')' * 01 : ciseaux * 
BEQ CHI * 02 : note de musique La 
CMP #$CE ; code de OR * 03 : croix : 
BNE SNTX1 * 04 : stylo Gé 
JSR $B1l * 05 : crayon ) 
LDX $B8 * 06 : document * 
STX TAMP1 * 07 : feuille Fe 
LDX $B9 * # 
STX TAMP2 RARRÉAHÉÉÉÉÉÉÉÉÉNÉNÉRÉÉÉE 
LDX #<PR 
LDY #>PR CHOIX ASL ; multiplication par 2 
JSR VERIF TAX 
BCC CH2 LDY Til+i,x 
LDX TAMPI HDA TI: X 
STX $B8 STA AD2 
LDX  TAMP2 STY ADI 
STX S$SB9 RTS 
LDX #<NO 
LDY #>NO T1 DDB FLECHE 
JSR VERIF DDB CISEAUX 
BCS SNTX1 DDB NOTE 
CH3 LDA #2 ; ou NOPRESS DDB CROIX 
UMP  CALL DDB STYLO 
CHI LDA #4 ; simplement !')' DDB CRAYON 
UMP  CALL DDB DOC 
CH2 LDA #3 ; Ou PRESS DDB FEUILLE 
CALL JSR SOURIS 
JMP  S$B1 FLECHE HEX Z2D2D1E3F372D353F374D0E0E2527270600 
SNTX1 RTS CISEAUX HEX Z2E2E2E2E2E0EAE65E4FFIBI16F6E7646D4043432B26 
HEX 2017240600 
VERIF STX AD+1 NOTE HEX 2E2D0C3F272D252424242424240E0E2E3E2E1E3600 
STY  AD+2 CROIX HEX 20B40A2DD73326C03F0500 
STX Vi+l STYLO HEX 49E40DFCIC2D2D2424242424242424242424BF9212 
STY Vi+2 HEX 242444633C373E363636363636363636362600 
LDX #0 CRAYON HEX 653F2C2D0C6464246F24273F172EDEF6F6363500 
USR $B7 DOC HEX 2D0E2E2D2D3536363E3F3F3F3F3F2724242C45B328 
AD CMP $200,Xx 2D0500 
BNE FAUX FEUILLE HEX 36363636362D2D2D2D252424243F27240E0EDC183F 
INX 3F0600 
V1 LDA $200,Xx 
BEQ OK 
nes Source SOURIS 
ok qe Assembleur ProCODE 
FAUX SEC 
RARE RRRRRRÉRÉARRÉRMR ERREUR RÉ ÉRAAAAA AAA ÉÉÉRA RÉ EE 
RTS : ÿ & 
TAMP1 HEX 00 * Programme de gestion de souris * 
* * 


TAMP2 HEX 00 


PTTLLILLLLILLLILILILLILILLILLLLLSÉESSESESELLIEESLLRLLL)L)L 2), 


IN ASC  'INIT(MOUSE) 





HEX 00 ORG $9000 
CL ASC  'LOSE (MOUSE) ‘ 
HEX 00 SET EQU SC412 
NO ASC  'NO' SERVE EQU S$C413 
PR ASC 'PRESS)' READ EQU $C414 
HEX 00 CLEAR EQU $C415 
oÙ ASC 'OUT{' POS EQU $C416 
HEX 00 CLAMP EQU $C417 
TAB DS 6 HOME EQU $C418 
INIT EQU $C419 
CADRE EQU S$0 
X1 EQU $6 
Source SETCURSOR x2 EQU $7 
Assembleur ProCODE Y EU 58 
XX1 EQU $2078 
XX2 EQU 52079 
D DE DE DE DE D DD DE D D D D EE OR AM AMAR RARE XX YYI EQU $207À 
* * YY2 EQU $207B 
L Programme de gestion du curseur # 
* * F1 EQU $2 
PAP PTS ST STE ETES ET TT TITI TITI TT TITI TITI LI LILI LILI LL LIL LL LI VA EQU Fi+1 
ORG $94E7 XDRAW EQU S$SF65D 
POSXY EQU SF411 
ADI EQU 52 SCALE EQU $E7 
AD2 EQU AD1+1 
BIT = $95F8 
RRARARAAAARÉARÉARÉÉÉÉÉÉERÉÉ RES = Ss95F9 
* * BIT2 = $95FA 
* 00 : fleche * RES2 ” $95FB 
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COM = $S95FC 


FIRST LDA #1 
#<INIT 
CALL 
#$01 
#<SET 
CALL 


#<CLEAR 


DEBUT 
FLECHE] 


DH € 
Ti+1,Y 
T2+1 
T2+2 
COMO 
LECTURE 


T2 JSR 


CcoM0 
COM1 

COM2 
COM3 
COM4 
COM5 
COM6 


T1 DDB 


#580 
BIT 
BIT2 
RES 
RES2 
LDA #0 

COM 


COMO 


#$580 
BIT 
BIT2 
LDA #0 

RES 
RES2 
COM 


COM1 


#580 
BIT 
BIT2 
COM 
LDA #0 

RES 
RES2 


COM2 


COM3 #580 
BIT 
BIT2 
RES 
RES2 
COM 
COM4 LDA #0 
BIT 
BIT2 
RES2 
#$FF 
RES 
COM 


#$co 
BIT 
BIT2 
#580 
RES 


COM5 


;sinitialisation de la souris 


sen mode passif 


sremise a zero des coordonnees 


fin de l'initialisation 


ordre poids fort / poids faible 


COM6 


LECTURE 


XFAUX 


XOK 


YFAUX 


YOKk 


S1 


S2 


S3 








RES2 
#0 
COM 


#0 
BIT 
BIT2 
RES 
RES2 
#$FF 
COM 


#<READ 
CALL 
$57C 
XOK 
#1 
XOK 
#2 
XFAUX 
$47C 
#$2F 
XOK 
#2 
$57C 
#$2F 
$47C 
$5FC 
YOK 
#1 
YFAUX 
S4FC 
#$7F 
YOK 
#1 
$S5FC 
#57F 
S4FC 
#<POS 
CALL 
S47C 
XX1 
S$57C 
XX2 
S5FC 
YY2 
$4FC 
Yyi 
XX2 
XX1 
xy2 
YY1 
COM 
A2 


#2 

YY1 
(CADRE) ,Y 
Si 

Ss1 

R2 

#5 


(CADRE), Y 
Ss2 
S2 
R2 


#1 

XX2 
(CADRE) , Y 
s3 

#0 

XX1 
(CADRE) , Y 
S4 

S4 

R2 

#1 
(CADRE) , Y 
S4 

R2 


read mouse 


;si superieur a YMIN 


;si inferieur a YMAX 


smaintenant on teste X 
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#4 
XX2 


SCAEREI Fv Source INVERSION 
pis Assembleur ProCODE 


XX1 
{CADRE}, Y RRRÉRRRRRRRARÉRÉRÉRRÉRRRRRÉRRRÉRÉARARÉÉÉ 
22 ;ok # 
A2 ;0k aussi * programme d'inversion d'une 2 
{CADRE) , Y * * 
A2 stermine * zone correspondant aux octets * 
A2 * * 
R2 * delimitant la zone. * 
* * 
S77C ÉRRRRRRRRRRRRÉRÉRÉRÉRÉRARRRARÉAÉAR ARR EE 
BIT 
RES ORG $95C0 
RETOUR 
s77C RRRRRRRRRRRRRRRRR RÉ RÉ RÉ R RÉ 
#520 Li * 
A5 * (02:05 xX (02 80) * 
A3 FLECHE1 RONDS NET # 
FLÈCHE * _(0),2 : L ( longueur de la zone } #* 
A5 LECTURE * _(0),3 : H ( hauteur de la zone }) * 
* * 
RETOUR S77C RRRRRARRARRARRRARÉRRRÉRÉRRRRRRRRRRRARRÉARRRRÉ RÉ 


BIT2 
RES2 BO LDY 
A4 ;charge Y 


FLECHE1 
XX1 


C400+1 
$C400 
C1+1 
#5c4 
#$40 
C1 $C400 


FLECHE 


FLECHE1 


F7 LA - 
Récapitulation 9500:95 9560:24 BF 
SETCURSOR C 9508:37 9568230137 
” 9510:25 9570:36 36 
9518:2E 9578:3F 2C 
Après avoir saisi ces codes sous 9520:16 9580:24 27 


moniteur, vous les sauvegarderez par : 9528:2B 9588:36 35 


BSAVE SETCURSOR.C, A$94E7, L212  9530:2D à 9590:35 36 
9538:24 9598:3F 27 


94E7 : OA 9540:2E 95A0:2D 05 
94E8:AA BC F5 94 BD F4 94 85 9548:D7 95A8:2D 2D 
94F0:03 84 02 60 95 04 95 15 9550:E4 95B0:3F 27 
94F8:95 2F 95 44 95 4F 95 77 9558 :24 95B8:3F 06 








Récapitulation 91C0:79 20 85 07 AD 7A 20 85 9378:A6 B9 8E B6 94 AO 94 A2 
91C8:08 18 60 8E CF 91 AE 00 9380:D1 20 8F 94 BO 08 A9 00 
SOURIS.C 91D0:C4 8E D9 91 A2 C4 AO 40 9388:20 1C 90 4C B1 00 AE B5 
91D8:4C 00 C4 AD 78 20 85 06 9390:94 86 B8 AE B6 94 86 B9 
91E0:AD 79 20 85 07 AD 7A 20 9398:A0 94 A2 CF 20 8F 94 BO 
Après avoir saisi ces codes sous 91E8:85 08 A6 06 A4 07 A5 08 93A0:08 A9 01 20 1C 90 4C B1 
moniteur, vous les sauvegarderez par 91F0:20 11 F4 A9 01 85 E7 A9 93A8:00 AE B5 94 86 B8 AE B6 
BSAVE SOURIS.C, A$9000, L512 91F8:00 A4 03 A6 02 4C 5D F6 93B0:94 86 B9 20 B7 00 C9 BF 
7 PE 0 DD to 20 El D A0 4 AD 
9000:A9 O1 A2 19 20 CB 91 A9 , L : 93C0:D1 20 8F 94 BO A2 A9 05 
9008:01 A2 12 20 CB 91 A2 15 Récapitulation 93C8:20 1C 90 4C B1 00 60 AE 
9010:20 CB 91 A9 00 85 06 85 93D0:B5 94 86 B8 AE B6 94 86 
9018:07 85 08 60 48 20 EA 91 INTERFACE.C 93D8:B9 A0 94 A2 D8 20 8F 94 
9020:68 OA A8 B9 35 90 BE 36 93E0:D0 86 20 B1 00 20 67 DD 
9028:90 8E 30 90 8D 31 90 20 Après avoir saisi ces codes sous 93E8:20 OC El A5 Al 8D DD 94 
9030:43 90 4C CF 90 90 43 90 moniteur, vous les sauvegarderez par : 93F0:A5 AO 8D DE 94 20 B7 00 
9038:57 90 6B 90 ?7F 90 91 90 BSAVE INTERFACE.C, A$9200, L739 93F8:C9 2C DO D2 20 B1 00 20 
9040:A5 90 BB A9 80 8D F8 95 9400:67 DD 20 OC El A5 A1 8D 
9048:8D FA 95 8D F9 95 8D FB 9200:A9 4C 8D F5 03 A9 10 8D 9408:DF 94 20 B7 00 C9 C1 DO 
9050:95 A9 00 8D FC 95 60 A9 9208:F6 03 A9 92 8D F7 03 60 9410:7D 20 B1 00 20 67 DD 20 
9058:80 8D F8 95 8D FA 95 A9 9210:C9 B5 FO 11 C9 49 FO 16 9418:0C El A5 Al 8D EO 94 A5 
9060:00 8D F9 95 8D FB 95 8D 9218:C9 43 FO OF C9 83 FO 08 9420:A0 8D El 94 20 B7 00 C9 
9068:FC 95 60 A9 80 8D F8 95 9220:C9.9E FO 19 60 4C 69 93 9428:2C DO 63 20 B1 00 20 67 
9070:8D FA 95 8D FC 95 A9 00 9228:4C F2 92 4C AO 92 AO 94 9430:DD 20 OC El A5 A1 8D E2 
9078:8D F9 95 8D FB 95 60 A9 9230:A2 B7 20 8F 94 BO ED 20 9438:94 A9 DD 85 00 A9 94 85 
9080:80 8D F8 95 8D FA 95 8D 9238:00 90 4C B1 00 20 B1 00 9440:01 20 B7 00 C9 5D DO 46 
9088:F9 95 8D FB 95 8D FC 95 9240:C9 28 DO EO 20 B1 00 20 9448:20 B1 00 C9 29 FO 32 C9 
9090:60 A9 00 8D F8 95 8D FA 9248:67 DD 20 OC El A5 Al 8D 9450:CE DO 3B 20 B1 00 A6 B8 
9098:95 8D FB 95 A9 FF 8D F9 9250:DD 94 20 B1 00 20 67 DD 9458:8E B5 94 A6 B9 8E B6 94 
90A0:95 8D FC 95 60 A9 CO 8D 9258:20 OC El A5 Al 8D DE 94 9460:A2 D1 AO 94 20 8F 94 90 
90A8:F8 95 8D FA 95 A9 80 8D 9260:20 B7 00 C9 3A DO BD 20 9468:1D AE B5 94 86 B8 AE B6 
90B0:F9 95 8D FB 95 A9 00 8D 9268:B1 00 C9 E3 DO B6 20 B1 9470:94 86 B9 A2 CF AO 94 20 
90B8:FC 95 60 A9 00 8D F8 95 9270:00 C9 DO DO AF 20 B1 00 9478:8F 94 B0O 12 A9 02 4C 88 
90C0:8D FA 95 8D F9 95 8D FB 9278:20 67 DD 20 OC El A5 A1 9480:94 A9 04 4C 88 94 A9 03 
90C8:95 A9 FF 8D FC 95 60 A2 9280:8D DF 94 20 B1 00 20 67 9488:20 1C 90 4C B1 00 60 8E 
90D0:14 20 CB 91 AD 7C 05 FO 9288:DD 20 OC El A5 Al 8D EO 9490:A1 94 8C A2 94 8E A7 94 
90D8:19 C9 01 FO 15 C9 02 DO 9290:94 A9 94 85 O1 A9 DD 85 9498:8C A8 94 A2 00 20 B7 00 
90E0:07 AD 7C 04 C9 2F 90 OA 9298:00 20 CO 95 4C B1 00 60 94A0:DD 00 02 DO 0E E8 BD 00 
90E8:A9 02 8D 7C 05 A9 2F 8D 92A0:20 B1 00 C9 55 FO 1B AO 94A8:02 FO 06 20 B1 00 4C AO 
90F0:7C 04 AD FC 05 FO 15 C9 92A8:94 A2 C3 20 8F 94 BO EF 94B0:94 18 60 38 60 00 00 49 
90F8:01 DO 07 AD FC 04 C9 7F 92B0:AD 12 C4 8D BD 92 A9 00 94B8:4E 49 54 28 4D 4F 55 53 
9100:90 OA A9 01 8D FC 05 A9 92B8:A2 C4 AO 40 20 00 C4 4C 94C0:45 29 00 4C 4F 53 45 28 
9108:7F 8D FC 04 A2 16 20 CB 92C0:B1 00 20 B1 00 C9 52 DO 94C8:4D 4F 55 53 45 29 00 4E 
9110:91 AD 7C 04 8D 78 20 AD 92C8:D6 20 B1 00 C9 53 DO CF 94D0:4F 50 52 45 53 53 29 00 
9118:7C 05 8D 79 20 AD FC 05 92D0:20 B1 00 C9 28 20 B1 00 94D8:4F 55 54 5B 00 00 00 00 
9120:8D 7B 20 AD FC 04 8D 7A 92D8:20 67 DD 20 OC El A5 A0 94E0:00 00 00 
9128:20 4E 79 20 6E 78 20 4E 92E0:D0 OF A5 Al 20 E7 94 20 
9130:7B 20 6E 7A 20 AD FC 95 92E8:B1 00 C9 29 DO 03 20 B1 
9138:F0 57 AO 02 AD 7A 20 DI 92F0:00 60 20 B1 00 C9 28 DO Récapitulation 
9140:00 FO 05 BO 03 4C B7 91 92F8:F8 20 B1 00 20 E3 DF A5 
9148:A0 05 18 D1 00 FO 05 90 9300:83 8D B5 94 A5 84 8D B6 INVERSION.C 
9150:03 4C B7 91 AO O1 AD 79 9308:94 20 B1 00 20 E3 DF A5 
9158:20 D1 00 DO 0E AO 00 AD 9310:83 8D DD 94 A5 84 8D DE 
9160:78 20 D1 00 FO O0E BO OC 9318:94 20 B1 00 20 E3 DF A5 Après avoir saisi ces codes sous 
9168:4C B7 91 A0 01 D1 00 BO 9320:83 8D DF 94 A5 84 8D EO moniteur, vous les sauvegarderez par : 
9170:03 4C B?7 91 AO 04 AD 79 9328:94 20 B7 00 C9 29 DO C1 BSAVE INVERSION.C, A$95C0, L56 
9178:20 D1 00 DO OB AO 03 AD 9330:A9 06 20 1C 90 A4 08 20 
9180:78 20 D1 00 FO OB 90 09 9338:01 E3 AE DD 94 AC DE 94 
9188:D1 00 90 05 FO 03 4C B7 9340:20 2B EB A5 07 A4 06 20 95C0:A0 01 B1 00 A2 00 AO 00 
9190:91 AD 7C 07 2D F8 95 CD 9348:F2 E2 AE B5 94 AC B6 94 95C8:20 11 F4 AO 02 B1 00 AA 
9198:F9 95 FO 10 AD 7C 07 29 9350:20 2B EB AD 7C 07 29 80 95D0:A0 00 B1 00 A8 88 C8 B1 
91A0:20 FO 06 20 EA 91 20 DB 9358:A8 20 01 E3 AE DF 94 AC 95D8:26 49 FF 91 26 CA DO F6 
91A8:91 4C CF 90 AD 7C O7 2D 9360:E0 94 20 2B EB 4C B1 00 95E0:A0 01 B1l 00 AA E8 8A 91 
91B0:FA 95 CD FB 95 DO E5 20 9368:60 20 B1 00 C9 28 DO F8 95E8:00 A0 03 B1 00 AA CA FO 
91B8:EA 91 AD 78 20 85 06 AD 9370:20 B1 00 A6 B8 8E B5 94 95F0:06 8A 91 00 4C CO 95 60 
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Humeur... 


OÙ plutôt mauvaise humeur ! Pom's publie suffisamment 
de sources écrits avec l'assembleur ProCODE pour ne pas 
être soupçonné d'a priori défavorable. Bien que doté de 
qualités, bien qu'assemblant sans problème, bien que 
gérant plusieurs fichiers en mémoire, bien que produit 
français, ProCODE est ergonomiquement affligeant : 


Impossible d'annuler une suppression de ligne involontaire, 

Impossible de supprimer directement la dernière ligne, 

Impossible d'insérer une ligne avant la première (il faut la 
dupliquer), 

Facile de sauvegarder un fichier en écrasant un ancien 
portant le même nom (pourtant ProDOS permet de savoir 
aisément si un fichier existe déjà : pourquoi ne pas 
prévenir l'utilisateur...), 

Faciles les erreurs dans les noms de fichiers : la saisie n'est 
pas contrôlée, 

Facile de tout perdre : on vide la mémoire sans proposer au 
préalable la sauvegarde, 

Impossible d'imprimer sans assembler (agréable en cours 
de conception lorsque toutes les étiquettes ne sont pas 
définies...), 

Obligé de sortir du programme pour changer le port de 
l'imprimante, 

Impossible de sauvegarder sous le nom 
/UNIDISK3.5/FICHIERS car on ne peut dépasser 15 
caractères : obligé de définir un préfixe, 

Impossible de déverrouiller un fichier : l'option supprimer s'en 
trouve limitée. 


Bientôt une version agréable à utiliser ? 





Cryptage… 


Mathématiques, 
Physique et Basic, 


par Thierry Robin, 
Editions Ellipses 
156 pages 


Après une vingtaine de 
pages générales sur l'infor- 
matique et le Basic, puis une 
quarantaine de pages sur 
l'analyse numérique, l'au- 
teur montre comment 
résoudre, à l'aide de 
programmes en Basic, 35 
problèmes scientifiques, 
dont des problèmes du 
concours d'entrée à l'X. C'est 
dire que la lecture de ce 
livre, pour intéressante 
qu'elle soit, risque de rebuter 
ceux qui n'ont pas de bonnes 
bases mathématiques. Le 
titre est d'ailleurs un peu 
trompeur : à de rares 
exceptions près, il s'agit de 
problèmes de mathéma- 
tiques. Le livre est clair et 
bien fait ; il aurait toutefois 
gagné à être présenté avec 
des listings utilisant des 
indentations. 








Erratum 


Reliures Pom'’s 


Pour la protection de 
votre précieuse 
documentation, pour 
en faciliter la 
consultation, pour 
rendre agréable la 
recherche d'un CALL ou 
d'un PEEK égaré. 











Une erreur s'est glissée dans l'article d'accompagnement de la 
commande externe ‘KRUPTOS’ du précédent numéro. Cryptage et 
décryptage s'obtiennent par la commande : 

CRYPTE nom fichier, clef [Sn PS 1I0ET CD nn Grive) 
On pouvait le déduire par la lecture de la fin du source. Ceci n'a pas 
empêché trois lecteurs de découvrir la clef de codage du fichier 
“SECRET” : «RM.7» ; le bit de poids fort, toujours identique sur les 
fichiers AppleWriter, était un indice non négligeable, bravo. 


reluires toilées bordeaux, logo Pom's, pour 6 numéros : 


60,00 F TIC franco, bon de commande page 74 
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MultiScribe 2.0 


Un traitement de textes en DHGR 
Bernard Toméno 


MultiScribe tourne sur Apple //e 
128K0, //c et IIGs. Il fonctionne 
sous ProDOS, en double haute 
résolution graphique, avec ou 
sans souris et use largement des 
fenêtres et menus déroulants : 
bref, un vrai programme 
Macintosh mais sur Apple //, ce 
qui est une belle performance. 


Bien sûr, les affichages, la 
rapidité de réaction, le 
déroulement des menus gagnent 
en agrément sur le IIGs. 


Le programme occupe les deux 
faces d'une disquette 140Ko qui 
doit rester en ligne, car le système 
a recours au disque pour changer 
de police de caractères, stocker 
un ‘copier’, etc. 

Pour plus de confort, la souris et 
deux lecteurs de disquettes sont 
souhaiïtables. L'ensemble des 
fichiers gagne à être placés sur 
une disquette 800Ko. 


L'utilisation est particulièrement 
intuitive : MultiScribe est une 
réplique fidèle du traitement de 
textes MacWrite disponible sur le 
Macintosh. Les conventions 
d'ergonomie adoptées sur cette 
machine ont été fidèlement 
respectées. 


La typographie 


Ce qui fait la force et la beauté de 
MultiScribe : dix polices de 
caractères en proportionnel dont 
l'inévitable Gothique. L'utilisa- 
teur en créé autant qu'il le 
souhaite grace à l'éditeur livré sur 
la même disquette. 

Pour chacune d'elles, il est pos- 
sible de définir 5 tailles de 
Caractères et 10 styles de 
présentation (voir l'exemple). 
Chaque type de police, taille et 
style peut être choisi avant d'être 
utilisé ou bien redéfini a 
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posteriori sur un texte déjà 
existant (qui a pu être créé à l'aide 
d'Applework, Epistole Apple 
Writer, etc). 


Fonctionnalités 


On trouve sur MultiScribe les 
classiques fonctions de définition 
de marges (droite et gauche), 
justification (droite, gauche, 
totale, centrée), espacement de 
lignes variable, chercher et 
remplacer, couper/copier/coller. 

Il faut aussi noter les possibilités 
de définir des hauts et bas de 
pages automatiques (pouvant 
inclure date et heure si vous avez 
la carte horloge), une 
numérotation automatique des 
pages, l'insertion de saut de 
pages. 

Le déplacement dans le texte 
s'obtient par la touche G> ou 
G<, Gchiffre (comme dans 
Applework ) ou à l'aide de la 
souris et du classique ascenseur 
latéral. 


Environnement 


On peut choisir son interface (45 
propositions, séries ou parallèles) 
et son imprimante (11 machines 
dont ImageWriter, DMP, Epson 
FX, RX et MX, Okidata 921BM, 
92STD, Scribe, Brother) et 
sauvegarder ce choix sur disque. 
On peut aussi définir son format 
de papier (4 possibilités, la plus 
utile en France étant Fanfold 
International). 

Les textes peuvent être 
sauvegardés sur tous supports 
(merci ProDOS), sur 5 1/4 ou 3 
1/2, disque dur, ou disque virtuel 
volatile, ceci en format 
MultiScribe ou en format TEXT 
(ASCII). Il existe des options 
pour formater une disquette et 
détruire un fichier. 


L'impression 


Cinq qualités d'impression papier 
sont offertes, de plus en plus 
noires et lisses, le temps 
d'impression croissant avec la 
qualité, plus une qualité courante 
non graphique, plus une 
visualisation à l'écran avant 
d'imprimer. Pour la meilleure 
qualité, la tête d'impression passe 
quatre fois sur la même ligne. 

Il y a la possibilité de choisir le 
feuille à feuille ou le papier 
continu, l'impression totale ou 
partielle d'un texte, l'impression 
de plusieurs documents chaînés, 
la numérotation automatique des 


pages. 


L'éditeur de 
polices 


D'une fort belle présentation, il 
permet de créer ses propres 
polices, ou de modifier celles qui 
sont sur la disquette (francisation 
facile de certains caractères 
typiquement américains, création 
de lettres accentuées, de 
symboles scientifiques, ou même 
de petits logo ou dessins divers 


comme #wæ par exemple). 


Options 

Pour quelques dollars de plus 
vous pouvez acheter des 
“options” : 


+ Accessoires de bureau type 
Macintosh (horloge, calen- 
drier, calculette...) ; 

+ Jeux de polices de caractères 
supplémentaires ; 

+ ‘Picture Manager’ pour mé- 
langer 
dessins et texte ; 

+ Correcteur d'orthographe (in 
english, sorry...). 





mi 
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Points forts, regrets 


Au chapitre points forts, on 
trouve la qualité de l'ergonomie et 
de la présentation à l'écran 
graphique, les nombreuses 
possibilités de typographie et 
d'impression, le couper/coller, 
l'ouverture des fichiers par une 
fenêtre de sélection : nul besoin 
de se rappeler l'orthographe 
exacte des nom de fichiers. 

Les menus déroulants dispensent 
l'utilisateur de se rappeler la 
syntaxe de telle ou telle fonction : 
le menu et la fenêtre de 
remplacement sont plus plaisants 
que : 

CTRL-F $$paris$$SParis$a... 
Rien n'étant parfait (quoi que...) 
en ce bas monde, on peut 
regretter : 


+ l'absence de glossaire ; 

+ les possibilités très limitées de 
mélanger plusieurs textes ou 
fragments de texte à l'écran (on 
annonce une version IIGs qui le 
pourrait) ; 

+ l'impossibilité de sauvegarder 
sur disque les informations 
concernant le format du 
papier ; 

° l'impossibilité d'annuler la 





dernière commande ; 

+ l'absence d'un WPL, ce 
langage d'AppleWriter qui 
permet d'automatiser les 
commandes répétitives, faire 
des maïilings, etc. 


Dernier problème : sur un Apple 
/Je avec Carte Féline, MultiScribe 
ne fonctionne pas (illisibilité à 
cause d'un problème d'affichage 
en double haute résolution). 
Don't panic... la solution est à la 
fin de ce papier. 


Commercialisation 


MultiScribe est vendu par 
Styleware inc. (5250 Gulfton 
suite E, Houston, Texas 77081) à 
un prix défiant toute concurrence 
(60 dollars). Il suffit d'écrire en 
précisant son numéro de carte de 
crédit et la date d'expiration : 15 
jours après, MultiScribe est chez 
vous avec un manuel clair et bien 
présenté. 

La disquette n'est pas protégée 
comme bien des softs américains 
aujourd'hui : mais MultiScribe est 
si bien fait et si bon marché qu'on 
ne doit pas avoir envie de le 
copier pour les copains. Ceux qui 
l'on écrit méritent un coup de 
chapeau et notre honnêteté. 


Recette pour un 
Apple //e avec 
carte Féline 


Avec la disquette ARLEQUIN, 
créez une disquette SYSTEM 
(elle contiendra donc PRODOS, 
ARLEQUIN.SYSTEM qui est un 
Basic amélioré, ainsi que les 
fichiers GLIDATA, GLI16.2, 
GLI.ERRORS, IWIICOLOR- 
COPY) et donnez lui le nom de 
/MULTISCRIBE. 

Sauvez y un STARTUP ainsi 
Conçu : 


10 D$ = CHR$(4) : PRINT D$ 
"PREFIX/MULTISCRIBE" 

20 & BACK (17) : & WINDOW 
t:0, 18,0, 1917 05 € NO 
DE (1) : & SETVAR ( 50, 
TENMS LP DTISETAT(S)OENP 
OKE 49234,0 : PRINT D$ 
"BLOAD MS.SYSTEM, TSYS, 
A$2000 " 

30 & DISPLAY ( 1 ) : CALL 
8192 

Puis recopier sur la disquette les 

fichiers de la face 1 du disque 

MULTISCRIBE, et au verso 

ceux de la face 2. C'est tout. 





HUUBDPIUSEBURES 240 Quelques possibilités 


traitement de textes en DHGR 


Dix polices de 
perdre la justification 
caractères mixables à 


justification totale, 


mixables à l’intérieur d’un même 
justification totale, 
de caractères mixables 


polices 


caractères 
totales. 
l'intérieur 


mixables à 
compris 
d'un meme 
compris 
texte 


l’intérieur 
avec 


9 
d’un 
d'un même texte sans 
le 8. Dix polices de 
tente sens perdre la 


avec le & Dix polices de caractères 
sans perdre La 
y compris avec Le 6. Din 
à l'intérieur 


d'un 


même tèxté gangs péroré la iuntification totale, y 


compris avec Le €. 


Un caractère peut être standard, grax, ‘ffa/ique, souligné, 
ombré, rellet, MIE 4 <“Pesent, double hauteur, 
ciasasBie Ie eus. Ces differents arguments sont 
compatibles entre-eusx SLAS Lamine SAMLISRE , 


roc ClouDUe 


Dnraoeuc. 
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Dhg Tool : un outil graphique 


La double haute résolution 
graphique permet de 
disposer de 560 x 192 points 
sur un Apple //c ou un //e 
avec mémoire étendue à 
128Ko. Mais l'Applesoft ne 
présente aucune facilité 
pour son accès et son 
utilisation reste délicate. 


Une image DHGR réside entre 
$2000 et $3FFF en mémoire 
principale et entre $2000 et 3FFF 
en mémoire auxiliaire, occupant 
16Ko de MEV. Toutes les 
colonnes paires de l'écran 80 
colonnes correspondent à la page 
auxiliaire, toutes les colonnes 
impaires à la page principale. Le 
microprocesseur de l'Apple ne 
pouvant adresser que 64Ko, 
l'accès à la mémoire auxiliaire ne 
peut se faire que par 
l'intermédiaire de bascules 
logicielles. 


Chargement et 


sauvegarde 
d'images DHGR 


Il est possible de stocker une 
image DHGR dans deux fichiers 
de 8Ko chacun, correspondant à 
la page graphique 1 en mémoire 
principale et la page graphique 1 
en mémoire auxiliaire (Cf les 
images de Purplesoft). 


Dans ce cas, le chargement se fait 
en deux fois : une image est 
chargée en mémoire principale, 
puis transférée dans la page 1 
auxiliaire en utilisant la routine 
AUXMOVE. Le deuxième fichier 
est alors chargé en page 1 de la 
mémoire principale. 

DhgrTool simplifie le processus 
en chargeant directement l'image 
en mémoire auxiliaire à partir du 
disque, sans passage par la 
mémoire principale. 
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Il paraît plus logique de sauver 
l'image DHGR dans un fichier 
unique. Pour cela, DhgrToo!l 
transfère la page 1 auxiliaire en 
page 2 principale et l'image est 
sauvegardée par copie de 
l'ensemble des 2 pages HGR 
principales sur le disque (BSAVE 
IMAGE, A$2000, L$S3FF8). 


Le fichier comporte 33 blocs sous 
ProDOS ou 67 secteurs sous 
DOS 3.3. Le processus inverse a 
lieu au chargement : la page 
HGR2 principale est transférée 
dans la page 1 auxiliaire. 
Tous les vétérans de l'Apple 
disposent d'images graphiques 
simple haute résolution. Celles-ci 
peuvent être converties de deux 
façons : 
+ deux images HGR combinées 
en une image DHGR : on 
charge successivement chacune 
des images HGR en page 2 et le 
sous-programme ÆGHDHGR 
transfère chacune des 40 
colonnes alternativement en page 
1 auxiliaire et 1 principale. 
CALL H1, 0 transfère la première 
image 
CALL H1,20 la deuxième 
* conversion d'une image HGR 
en image SDHGR : le 
sous-programme DBLHGR dupli- 
que horizontalement chaque point 
de l'image HGR. Chaque octet de 
l'image initiale donne deux octets 
dont l'un est chargé en 1 
auxiliaire et l'autre en page 1 
principale. 


Manipulation 
d'images DHGR 
par DhgrTool 


1—afficher une image 


Les opérations suivantes sont 
nécessaires : 


- déconnecter AN3 par lecture de 
l'adresse 49246 


Roland Jost 


- déconnecter ALPZP par POKE 
49160,0, qui permet de 
commuter uniquement entre les 
adresses $2000-$BFFF 

- passer en mode 80 colonnes 
par POKE 49165,0 (80 COL 
ON) 

- déconnecter TEXT en peekant 
en 49232 

-_ peeker en 49239 (HIRES ON) 
pour activer le graphisme haute 
résolution 

- peeker en 49234 (MIXED 
OFF) pour avoir accès à la 
totalité de l'écran. 


2— effacer l'image 


- effacer la page 1 par le HGR 
classique 

- commuter la 
(auxiliaire) par 
49237,0 (PAGE2 ON) 

- effacer la page 1A par CALL 
62450 

- revenir en page 1 par POKE 
49236,0 (PAGE2 OFF). 


page IA 
POKE 


3—négatif de l'image 
Le programme assembleur 
effectue un EOR $FF sur tous les 
octets de la page HGR 1 
principale et de la page 1 
auxiliaire 


4—sauvegarde en 
mémoire auxiliaire et 
rappel 
Une image peut être sauvée dans 
la mémoire auxiliaire en 
$4000-7FFF ou $8000-BFFF. 
Le sous-programme TRANSFERT 
permet les déplacements 
suivants : 
Pour le transfert de 2 pages 
CALL TRANSFERT, 2, 2 

2A vers 1 ; 3A vers 1A 
CALL TRANSFERT, 3, 2 

1 vers 2A ; 1A vers 3A 


CALL TRANSFERT, 4, 2 
4A vers 1 ; SA vers 1A 


CALL TRANSFERT, 5, 2 
1 vers 4A ; 1A vers 5A 


me a 0 M A 


RAR AN PUS GENRES  DRAL =) OU ll 1 0h AIS Lt RNA UE dE LL Sail 


RER LEE dt 1 à R 


l'AIFTS 


Pour le transfert d'une 
seule page 
CALL TRANSFERT, 0,1 
A vers 2 

CALL TRANSFERT, 1, 0 

2 vers 1A 
Pour les deux derniers cas, 
l'appel à TRANSFERT doit être 
précédé d'un POKE 49152, 0 (80 
STORE OFF) et suivi d'un POKE 
49153, 0 (80STORE ON). En 
effet 80STORE ON a priorité sur 
les commutateurs RAMRD et 
RAMWRT utilisés par AUX- 
MOVE pour réaliser le transfert. 
D'autres possibilités peuvent être 
obtenues en complétant ou 
modifiant les tables DEBUTI, 
FINI, NOUVI, DEBUT2, 
FIN2, NOUV2 (lignes 259 à 264 
dans le source) 
5—négatif d'une moitié 
d'image 
On peut inverser la moitié gauche 
ou la moitié droite. DHGRTOOL 
ne propose que l'inversion de la 
partie gauche. Pour inverser la 
partie droite faire d'abord un 
négatif de toute l'image, puis 
inverser la partie gauche. 


6—échange des moitiés 
gauche et droite 

Intéressant lorsque l'image 
DHGR a été obtenue à partir de 


deux images HGR normales, ou 
pour des effets spéciaux. 


7—copie d'une moitié 
dans l'autre 


8—effet de miroir 
horizontal) 


DHGRTOOL.O0 


Toutes ces opérations sont 
effectuées par le programme 
Assembleur DHGRTOOL.0 qui 
est basé sur l'utilisation de la 
routine AUXMOVE et sur les 
commutateurs PAGEZ2 ONet 
PAGE2 OFF (qui permettent de 
travailler respectivement sur la 
page 1 ou la page 1A). 


La routine AUXMOVE 


AUXMOVE permet le transfert 
de blocs de données entre la 





mémoire principale et la mémoire 
auxiliaire, dans les deux sens. 
Elle est installée dans l'espace 
mémoire $C300-$C3FF et 
commence en $C311. 


Comme la routine MOVE du 
moniteur , elle utilise les adresses 
$3C - $43 pour délimiter la zone 
à transférer et l'adresse d'arrivée. 


$3C A1L octet bas de l'adresse 
de début du bloc à transférer 

$3D A1H octet haut de l'adresse 
de début 

$3E A2L octet bas de l'adresse 
de fin de la zone à transférer 

$3F A2H octet haut de l'adresse 
de fin 

$42 A4L octet bas de l'adresse 
d'arrivée 

$43 A4H octet haut de l'adresse 
d'arrivée 

De plus , c'est la valeur de la 


retenue qui détermine le sens du 

transfert : 

C=1: mémoire principale vers 
mémoire auxiliaire 

C=0: mémoire auxiliaire vers 
mémoire principale 


Le commutateur PAGE2 


En mode HGR normal, PAGE2 
permet l'accès à la page HGR 2. 
En mode 80 colonnes et double 
haute résolution, et lorsque 
80STORE est actif, un POKE 
49237, 0 permet au processeur 
d'adresser la page 1A , alors 
qu'un POKE 49236,0 permet 
l'adressage de la page 1. 


Implantation des divers 
programmes 


$6022 Négatif de la page DHGR 

$6047 Renverse l'image DHGR 
(miroir) 

$6099 HGR-DHGR : dilate 
une image HGR 

$60E3 deux images HGR 
placées côte à côte utilise le 
sous-programme 
CALCADR et les tables 
TABI1L et TAB1H 

$6186 échange les deux moitiés 
de l'image DHGR 

$61D2 copie la moitié gauche 
dans la partie droite 

$6216 copie la moitié droite dans 


la moitié gauche 
$625C négatif de la partie gauche 
$626F négatif de la partie droite 
$62AEF transfert de pages 
graphiques 
$633E correction d'erreurs. 


HardCopy de 
l'écran DHGR 


Une copie d'écran peut être 
obtenue avec le programme 
HARD de Marc Debuigne (Pom's 
n° 18). Mais la page 2 étant 
utilisée, il faut le reloger . Il a été 
choisi de le charger en $1000. Il 
faut donc poker $10 dans les 
octets $10D0, $10EE, $10F3, 
$115B, $1165, $1187. 


En basic : POKE 4304,16: 

POKE 4334,16: POKE 

4339,16: POKE 4443,16: 
POKE 4453,16: POKE 4487,16. 


Le programme HARD original 
permet d'imprimer une image en 
deux tailles 560*192 (1:1) et 
1120*364 (2:2). En masquant 
quelques instructions, on dispose 
de deux possibilités supplé- 
mentaires : (2:1) et (1:2). Voici la 
méthode : 

Pour image 2:1 


Faire les pokes suivants : POKE 
768,128: FOR I=0 TO 94: 
POKE 4423+I,234: NEXT. Ceci 
revient à mettre NOP dans les 
adresses $1141 à $1145. 


Pour image 1:2 


POKE 768,128: FOR I=5 TO 7 
: POKE 4423+I,234: NEXT. On 
met NOP dans les adresses 
$1146 et $1147. 


Après la hardcopy il faut restaurer 
le programme initial ($1141: 2C 
00 03 10 03 20 ED FD) par la 
séquence : POKE 4423, 44: 

POKE 4424,0: POKE 4425,3: 
POKE 4426,16: POKE 4427,3: 
POKE 4428,32: POKE 
4429,237: POKE 4430, 253. 


Le programme HARD original 
présente un inconvénient lorsqu'il 
est utilisé sous ProDOS, car il 
déconnecte ce dernier. En effet, 
HARD modifie les pointeurs 
CSWL/CSWH en page zéro , ce 
qui est à éviter. Il est préférable 
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de passer par les adresses $BE30 
du BI (ProDOS) (cf. Beneath 
Apple ProDOS). Les pointeurs 
sont modifiés par les routines 
ACTIVE et DESACTIV de 
DHGRTOOL(. HARD est patché 
en conséquence (voir la ligne 
20097 dans DHGRTOOL). 


Utilisation de 
DHGRTOOL.O 
dans d'autres 
programmes 
DHGRTOOL.0 est implanté à 
partir de $800, à la place 
habituelle d'un programme 


BASIC. Ce dernier devra donc 
être placé après la page HGR 2, 





en $6000. Prendre exemple sur la 
ligne 10 de DHGRTOOL. 


Vous pouvez aussi réassembler 
DHGRTOOL.0 à partir du 
programme source . En tout cas, 
vous devez laisser les pages 
HGR 1 et 2 libres. 


Pour disposer de la copie d'écran 
graphique , le programme HARD 
(Pom's 18) doit être présent sur 
la disquette. De plus, un certain 
nombre de patches sont 
nécessaires pour le reloger et le 
modifier. Prendre exemple sur les 
lignes 5070, 5080, 5185, 20095, 
20096, 20097. 


Certains sous-programmes de 
DHGRTOOL peuvent être utilisés 
dans vos propres réalisations : 


—gestion des menus ; 
—<élection d'une page graphique 
du disque (lignes 100-290) ; 
—routine de saisie de nom de 

fichier (lignes 300-490) ; 
—hardcopy (lignes 5000-5300). 


NB : DHGRTOOL ne tourne que 
sous ProDOS dont il utilise la 
possibilité de lire le directory 
d'une disquette et les appels au 
Basic Interpreter. Sous DOS 3.3, 
il faudrait modifier la routine de 
sélection d'une image (ligne 100) 
et les patches au programme 
HARD concernant les entrées/ 
sorties. 

DHGRTOOL.0 est utilisable sous 
DOS 3.3 à l'exclusion de 
ACTIVE et DESACTIV. 





Source DHGR.S 


Assembleur Edasm 
ProDOS ou ProCODE 


(Pour Edasm, LSR, ROR... ne 
concernent pas implicitement À ; 

il faut donc les remplacer par LSR A, 
ROR À) 


* UTILITAIRES DOUBLE HAUTE RESOLUTION 
* 

# R.JOST - 1986 

* 

* Edasm ProDOS/ProCODE 


# 


ORG $800 
* 

JMP TRANSFERT 
JMP INVDHGR 
UMP  MIRHOR 
UMP  DBLHGR 
UMP  HGRDHGR 
UMP ECHANGE 
JUMP  COPIEGD 
JMP  COPIEDG 
JUMP  INVGAUC 
JMP  INVDROI 





IMAGES DOUBLE HAUTE RESOLUTION 


Menu Principal ! 


Chargement d'une image ! 


Charger une image 16K 


Charger deux images 


Charger une image HGR 


! 

! 

! 

! 

! 

! 

! 

! Charger deux images HGR 
! 

! 

! 

! Retour au MENU principal 
! 
! 
! 


- R.Jost (19686) 


+ + + + 0 0 — + — — 





Choisir avec les fleches / Valider par <ENTER> / Quitter par <ESC> 





DHGRTOOL : Présentation type ‘Apple Works’ et ergonomie plaisante 


MEMPRINC EQU 


SAUVE EQU $09 
LINNUM EQU $50 
$CO054 ; sélectionne la page 1 





UMP ERREUR 
UMP  INKEY MEMAUXI EQU S$CO055 ; sélectionne la page 1A 
UMP ACTIVE à 
UMP  DESACTIV INVDHGR NOP 
; * 
; LDX #$00 
A1L EQU $3C _ STX ADRESSE 
A1H EQU S$3D LDX #$20 
A2L EQU $3E STX ADRESSE+1 ; on démarre en $2000 
A2H EQU $3F INVO LDY #$00 
A4L EQU $42 INVI STA MEMAUXI 
A4H EQU $43 LDA (ADRESSE), Y 
CHOIX EQU $06 EOR #$FF ; inverse un octet en 1A 
î STA (ADRESSE), Y 
AUXMOVE EQU $C311 ; routine de transfert STA MEMPRINC 
# LDA (ADRESSE) ,Y 
* EOR #$FF ; inverse un octet en 1 
* NEGATIF DE LA PAGE DHGR STA (ADRESSE), Y 


* DEY 
ADRESSE EQU $06 BNE INVI1 ; ceci sur 256 octets 





* 
* MIROIR 


* 


MIRHOR 

* 

Z1 

22 
DEPART 
ARRIVEE 
TAMPON 


HOR1 


HOR2 


* 


INC ADRESSE+1 
DEX 
BNE 


RTS 


INVO + et 32 fois. 


HORIZONTAL 
NOP 


EQU $06 
EQU $07 
EQU $18 
EQU $IlA 
EQU $1C 
EQU $EB 
EQU $EC 
EQU $ED 


EQU $EE 


#$00 
STX X1 
STX Y1 
STX 21 
#191 ; 192 lignes 
STX 22 

STX Y2 

LDX #40 î 
STX X2 

LDX 21 
CALCADR 
DEPART 
DEPART+1 
LDX 22 
CALCADR ; et d'arrivée 

ARRIVEE 

ARRIVEE+1 

LDY X1 ; on traite 1 ligne 
MEMAUXI ; on s'occupe de la page 1A 
(DEPART), Y 


initialisation des pointeurs 


LT 


40 octets par ligne 


calcul des adresses de départ 


LT 


(ARRIVEE) , Y 
(DEPART) ,Y 


(ARRIVEE) ,Y 
MEMPRINC  ; 
(DEPART) ,Y 


et de la page 1 


(ARRIVEE) , Y 
(DEPART) ,Y 


(ARRIVEE) ,Y 


CEYUX? 

HOR2 ; fin. de la ligne ? 

INC 21 ; on passe a la ligne suivante 
DEC 22 


LDA 22 
SBC 21 
HOR1 


* HGR --> DHGR 


* transforme une image HGR en image DHGR 


DBLHGR 
* 


* 


BOUCO 
BOUC1 


NOP 


LDX 
STX 
LDX 
STX 
LDY 
LDA 
STX 
JSR 
LDX 


#$00 

ADRESSE 

#$20 

ADRESSE+1 ; l'image est en page 1 

#500 

(ADRESSE) ,Y ; on traite tous les octets 
SAUVE 

DEDOUBLE ; en dupliquant chaque bit 
SAUVE 


MEMAUXI ; le ler octet est charge en page 
L'INNUM 

(ADRESSE), Y 

MEMPRINC ; le 2ème en page 1 

LINNUM+i 

(ADRESSE) , Y 


BOUC1 
ADRESSE+1 


BOUCO 


* dédouble chacun des 7 premiers bits d'un octet HGR 
* et stocke dans deux octets en conservant le bit de 


* couleur. 
* 
DEDOUBLE LDX 
STX 
STX 
LDX 
ASL 
PHP 
JSR 
PLP 
JSR 


DECAL 


ROLINNUM ROL 


cf. Pascal Cantot, 


Pom's 20 


#500 
LINNUM 
LINNUM+1 
#57 


ROLINNUM 
ROLINNUM 
DECAL 
ROLINNUM 
LINNUM 


LINNUM 
LINNUM+1 


* 2 IMAGES HGR 


* stocke 2 images HGR côte à côte en DHGR 


* copie l'image chargée en page 2 
* ($4000-S$S5FFF) dans une moitié de page DHGR 


* appel par CALL AD,X 
* X = numéro de la lère colonne ( O<=Xx<=20 } 


* 


HGRDHGR  NOP 


EQU 
XA1 EQU 


GETBYTC 
* 


BOUCLE 


LIGNE 


40 octets 


#191 ; 192 lignes 

Y2 

GETBYTC ; 

XA0 ; numéro lère colonre 
XA1 


x2 
CALCADR 
DEPART 


#$520 
DEPART+1 
CALCADR 
ARRIVEE 
ARRIVEE+1 ; adresse ligne en page 1 ou 1A 
X1 

(DEPART) ,Y ; 40 octet par ligne 


; adresse ligne départ en page 2 


(DEPART), Y 
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INY RTS 
STY X1 * 
LDY XAI * échange le contenu de 2 octets DHGR 
STA MEMPRINC ; stocke en page 1 
STA ({ARRIVEE),Y SWAP3 LDA (DEPART) ,Y 
PLA STA TAMPON 
STA MEMAUXI ; stocke en page 1A TYA 
STA  ({ARRIVEE),Y PHA 
INC XAI CLC 
STA MEMPRINC ADC #20 
LDA XI TAY 
CMP X2 LDA (DEPART) ,Y 
BNE LIGNE STA  TAMPON+1 
LDA #$00 LDA TAMPON 
y, STA X1 STA (DEPART) ,Y 
LDA XAO PLA 
STA XAI TAY 
DEC Y2 LDA  TAMPON+1 
LDA Y2 STA (DEPART),Y 
CMP #$FF RTS 
BNE BOUCLE ge 
RTS Lg 
* * COPIE MOITIE PAGE DHGR GAUCHE DANS DROITE 
* calcule l'adresse d'un octet en page HGR à partir il 
* des tables TABIL et TABIH, Li 
* COPIEGD LDX #$00 
CALCADR TXA STX X1 
LSR STX Y1 
LSR LDX #192 
LSR ST TYZ 
TAY LDX #20 
LDA TABIL,Y STX X2 
PHA COP1 LDX Y1 
TXA JSR CALCADR 
AND #507 STA DEPART 
ASL STY DEPART+1 
ASL LDY X1 
CLC CoP2 STA MEMAUXI 
ADC TABI1H,Y JSR COP3 
TAY STA MEMPRINC 
PLA JSR COP3 
RTS INY 
CPY  X2 
Li BNE COP2 
TAB1L DFB $00,$80,$00, $80, $00, $80, 500,580 INC  Y1 
DFB $28,$A8, $28, SA8, $28,SAB, S28,SA8 LDA Y1 
DFB $50,$D0, $50, SDO, $50, SDO, $50, SDO CMP  Y2 
TAB1H DFB $20,$20,S$21, S$21, $22, $22,$23, $23 BNE COP1 
DFB $20,$20,$21,S$21, $22,$22,S$23,S23 RTS 
DFB $20,$20,S$21, $21, $22, $22,$S23, 523 
* CoP3 LDA (DEPART),Y ; copie l'octet X en 20 + X 
* STA TAMPON 
* ECHANGE DE DEUX MOITIES DHGR TYA 
* PHA 
* copie la moitié gauche dans la droite et vice-versa CLC 
* ADC #20 
ECHANGE LDX #$500 TAY 
SPL 1 LDA TAMPON 
STX Y1 STA (DEPART) ,Y 
LDX #192 PLA 
STX Y2 TAY 
LDX #20 RTS 
STX X2 * 
SWAP1 LDX ÿY1 Lt 
JSR CALCADR * COPIE MOITIE PAGE DHGR DROITE DANS GAUCHE 
STA DEPART Li 
STY DEPART+1 fé 
LDY X1 COPIEDG LDX #20 
SWAP2 STA MEMAUXI STX X1 
JSR SWAP3 LDX #$00 
STA MEMPRINC STX Y1 
USR SWAP3 LDX #192 
INY STAUUEZ 
CPY X2 LDX #40 
BNE  SWAP2 STX X2 
INC ÿY1 COPY1 LDX Y1 
LDA ÿY1 JSR CALCADR 
CMP Y2 STA DEPART 


BNE  SWAP1I STY DEPART+1 








LDY XI JSR GETBYTC 


CoPY2 STA MEMAUXI STX CHOIX 
JSR COPY3 JSR GETBYTC 
STA MEMPRINC CPX #0 
JSR COPY3 BNE TRFI 
INY JSR TRANSO 
CPY X2 RTS 
BNE COPY2 TRF1 CPX #1 
INC 1 BNE TRF2 
LDA Y1 USR TRANS1 
CMP Y2 RTS 
BNE COPY1 TRF2 CPX #2 
RTS BNE TRFFIN 
ni USR TRANSO 
COPY3 LDA (DEPART) ,Y USR  TRANSI 
STA TAMPON TRFFIN RTS 
TYA TRANSO LDX CHOIX 
PHA STA MEMPRINC 
SEC USR  INITMOVE 
SBC #20 LDA DEBUTI,X 
TAY STA A1H 
LDA TAMPON LDA FINI,X 
STA (DEPART) ,Y STA A2H 
PLA LDA NOUVI,X 
TAY STA A4H 
RTS TXA 
* ROR 
Li JSR  AUXMOVE 
* INVERSE MOITIE GAUCHE RTS 
« TRANS1 LDX CHOIX 
: JSR  INITMOVE 
INVGAUC LDX #00 LDA DEBUT2,X 
STX X1 STA A4 
LDX #$00 LDA FIN2,Xx 
STX #1 STA A2H 
LDX #192 LDA  NOUV2,Xx 
STX Y2 STA A4H 
LDX #20 STA MEMAUXI 
STX X2 TXA 
JMP  INV ROR 
el JSR AUXMOVE 


* INVERSE MOITIE DROITE STA MEMPRINC 


* 


INVDROI LDX #20 ’ 


INITMOVE LDA #$00 Initialise les octets bas 


STX X1 î 
LDX #00 STA A1lL ; des adresses utilisées 
STX 1 STA A4L ; par AUXMOVE. 
LDX #192 LDA #$FF 
SEXE STA A2L 
LDX #40 RTS 
STX X2 a 
UMP  INV ; tables des adresses hautes 
* ; utilisees par AUXMOVE 
INV LDX ÿY1 DEBUT1 DFB $20,$40,5$40,$20, $80, $20 
USR CALCADR . FINI DFB S3F,$5F,$5F,S3F,$9F,$3F 
STA DEPART NOUVI DFB $40,$20,S$20,S40,$20,S80 
STY DEPART+1 DEBUT2 DFB $20,$20,$60, S20, $AO, $20 
LDY X1 FIN2 DFB $53F,S3F,S7F,S3F, $BF, S3F 
INV2 STA MEMAUXI NOUV2 DFB $40,S$40,S20,S60, $20, $SAO 
USR INV3 ERREUR PLA 
STA MEMPRINC TAY 
JSR INV3 PLA 
INY LDX SDF 
CPY X2 TXS 
BNE INV2 PHA 
INC TI TYA 
LDA Y1 PHA 
CMP Y2 RTS 
BNE INV * 
RTS _* DRIVER IMPRIMANTE 
* * 
INV3 LDA (DEPART),Y ; inverse un octet OLDVEC EQU S$2FE 
EOR #$FF 
STA  (DEPART),Y * Sauve les valeurs dans VECTIN ($BE30-31) 
RTS * et les remplace par le port imprimante. 
* * 
* TRANSFERT DE PAGE DHGR * 
* ACTIVE LDA $BE30 
TRANSFERT NOP STA OLDVEC 
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LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


$BE31 
OLDVEC+1 
#$00 
$BE30 
#$C1 
$BE31 


L 


* Redirige les sorties vers la 


* carte 80 colonnes {slot 3). 
* 


DESACTIV LDA OLDVEC 
STA $BE30 
LDA  OLDVEC+1 
STA $BE31 
RTS 

* 

* SAISIE D'UNE TOUCHE 

* 

* 

* 

VARPNT EQU $83 ; âdresse de la dernière variable 

KBD EQU $CO00 

STROBE EQU $CO10 


Source HARD.S 


I! s'agit du source publié dans le 
numéro 18 de Pom's. 


Programme DHGRTOOL 


10 





IF PEEK (103) + PEEK (104) 0256 <0 022357 
7 THEN POKE 103,1: POKE 104,96: POKE 2457 
6,0: PRINT CHRS$S (4)'"RUN DHGRTOOL" 

20 GOTO 20000 


100 REM CHARGEMENT D'UNE IMAGE 

110 ER = O:CX = CX(NM):CY = CY(NM): GOSUB 500: P 
OKE 32,CX + 1: VTAB CY + 3: POKE 33,CX + 5 
OP "POKE 54, CY +02 :NPOKE 35, CYR AE 

115 PRINT D$"PREFIX,D1" 

120 PRINT DS$S"PREFIX": INPUT DIRS 

130 PRINT DS$S"OPEN"DIRS",TDIR" 

140 PRINT DS"'READ"DIRS 

145 INPUT T$: INPUT TS: INPUT TS 

150 ONERR GOTO 180 

SSI = 0 

160 INPUT NAMES:NAMES = NAMES + "" 

162 IF NAMES = "" THEN 180 

164 IF MIDS$ (NAMES,18,3) < > "BIN" THEN 160 

166 IF MID$S (NAMES,26,3) < > TAS THEN 160 

168 IF MIDS$S (NAMES, 76,4) < > "2000" AND MID$ 

(NAMES, 76,4) < > "4000" THEN 160 

172 I = I + 1:5$(4,I) = LEFTS (NAMES$,15): GOTO 
160 

180 POKE 216,0: PRINT DS"CLOSE": IF I > 12 THEN 
I = 12 

181 S1 = I: IF S1 = O0 THEN PRINT CHRS$S (7)" Auc 
une image sur ce disque ";: GET R$: POP : 
RETURN 

182 IM = 4:HL = 6:HT = 10 

184 GOSUB 1020: IF K = 27 THEN POP : RETURN 

186 NAMES = S5$(4,C1) 

190 IF CO = 2 THEN RETURN 

230 REM 

260 PRINT : PRINT DS$"BLOAD'"NAMES;AS 

290 RETURN 

300 REM SAISIE D'UN NOM DE FICHIER 

LOU: 

320 HTAB l: VTAB 23: TEXT : CALL - 868: PRINT 


CHKCOM 
PTRGET 
SGNFLT 
MOVMF 


KEY1 


330 


340 
350 
360 
361 


362 


363 


364 


365 


370 


375 


380 
390 


391 
392: 
450 
480 
490 
499 
500 
510 
520 


530 
540 


550 


560 


570 


580 


EQU 
EQU 
EQU 
EQU 


$DEBE 
$DFE3 
$E301 
$SEB2B 
X et Y 


; rend flottant l'entier sans signe 
; transfère FAC dans octet pointé 


CHKCOM 
PTRGET 

KBD 

KEY 

STROBE 

#SFF 

KEY1 

#$SE0 F 
KEY1 

#$DF ; convertit en majuscule 
#57F : bit 7 à zéro 


est-ce une minuscule ? 


» 


convertit Y en flottant dans FAC 


adresse de la variable 


SGNFLT ; 
VARPNT î 
VARPNT+1 


MOVMF ; transfère FAC dans la variable 


"Tapez le nom de l'image, puis <Enter> // 


<ESC> pour annuler"; 


ER = O:CX = CX(NM):CY = CY(NM): GOSUB 500: P 
OKE 32,CX + l: VTAB CY + 3 
POKE 33,;CX + 50 


POKENSA CYCLE 2 PORN IS, CYR 

M$ = ""“: HATAB l: VTAB 10 

PH = PEEK (1403) + l:PV = 
NVERSE : PRINT " ";: NORMAL : 


B PV: CALL TCHE,R 


PEER ISIN 
HTAB PH: VTA 


IF R = 27 THEN RETURN 

IF R = 8 OR R = 127 THEN GOSUB 390: GOTO 3 
61 

DRE = TINANDIMEMENM EN RI END OO RENTE rx 
GOTO 450 

IF R < 46 OR (R > 57 AND R < 65) OR (R > 90 


AND R < 97) OR R > 122 THEN POKE 1403, P 
EEK (1403) 1: GOTOU361 
PRINT CHR$ (R); 
M$ = M$ + CHRS$ fR) 
GOTO 361 
HTAB PH: VTAB PV: PRINT " ";: IF LEN (M$) 
= 0 THEN PRINT CHR$ (7/);: POKE 1403, PEE 


K (1403) - 2: RETURN 

IF LEN (M$) < = l THEN POKE 1403, PEEK ( 
1409) 2:M$ =) "Me "RETURN 

POKE 1403, PEEK (1403) - 2:M$ = LEFT$ (M$, 
LEN (M$) - 1}: RETURN 

PRINT DS$S"BSAVE"M$",A$2000, L$3FFF" 

IF ER < > O0 THEN ER = 0: GOTO 330 

RETURN 


REM DESSIN D'UN CADRE 


POKE 32,CX + l: POKE 33,CX + 60: POKE 34,CY 
: POKE 35,CY + 15: HOME : TEXT 

HTAB CX + 5: VTAB CY + 1: PRINT IT$ 

VTAB CY: HTAB CX + 2: FOR I = CX + 2 TO CX 

HIS PRINTENMELANEXT 

VTABLCY HO LS MATAE CX HULL SRE ORET = CXOHRNTNT: 

O\UCX + 60: PRINT Muttes CNEXT : PRINTS"" 

VTAB CY + l: HTAB CX + 28: PRINT “!#,3: FOR 

im C RO AO NTO CM EMIOU SPRINT SEEN EXT 

FOR I = CY + l TO CY + 15: FOKE 36,CX: VTAB 
TN PRINTOUNENNEXT 

FOR I =1CY H'2NTONCY + 15 -NEOKE 36, CXIAN O0: 


VTAB I: PRINT "“!": NEXT 
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590 
599 
790 
800 


801 
810 


820 
890 
900 
905 
910 
920 


930 
955 
960 
990 
1000 


1005 
1010 


1015 


1020 


1030 


1040 


1050 


1070 


1080 


1090 


1100 


1140 
1150 


1160 


1170 


1180 


1190 


1200 : 
4990 : 


5000 


5005 


5007 


5010 


5020 


5030 


RETURN 


REM SORTIE DU PROGRAMME 

HTAB l: VTAB 23: TEXT : CALL - 868: PRI 

NT "Avez-vous vraiment décidé d'arreter 
(OZ/NIN ONF EGETI RS 


IF R$ < > "O" AND R$ < > "o" THEN RET 
URN 
HOME : 
REM SAUVEGARDE D'UNE IMAGE SUR DISK 
POKE 49236, 0 
POKE 49152,0: CALL TRANSFERT, 0,1: POKE 4 
9153,0: REM TRANSFERT MEM AUXI EN PAGE 
2 PRINCIPALE 
IT$ = "Sauvegarde'":NM = 2:FL = 1: 
00 


END 


GOSUB 3 


FL = 0 

RETURN 

REM AFFICHAGE MENU 
C1 = 1:CX = CX(NM):CY = CY(NM):ITS$S = ITS 
(IM): GOSUB S5SO0:HT = HT(NM):51 = S(IM):H 
L = HL(NM) 

HTAB 1: VTAB 24: PRINT "Choisir avec le 
s fleches / Valider par <ENTER> / Quitte 
r par <ESC> Li 
C1 = 1 

FOR X = 1 TO Si: IF X = Cl THEN INVERS 
E 

VTABNEL HO 2 F XUTF XP (S1"< 10): HTAB H 
T: PRINT S$(IM,X): NORMAL 

NEXT X 

POKE - 16368,0 

CALL TCHE,K 

IF K > 48 AND K < 48 + S1 THEN C1 = K: 
GOTO 1170 

TE K:< > 8" AND\K <> 21 AND'K < > 13 


AND K < > 10 AND K < 
27 THEN 1080 
O1 = C1 

IF K = 8 OR K = 11 THEN C1 = C1 
CIEL OT EST RC 1000) 
180: GOTO 1080 

IF K = 21 OR K = 10 THEN C1 = C1 + 1:C1 

mCD OCT So mi S TI (CT me SI TO 
SUB 1180: GOTO 1080 


> 11 AN K < > 


- 1:C1 
GOSUB 1 


RETURN 

VTAB\ HE 2: + 1010 01 ANV{SI10< 10): "HTAB 
HT: PRINT S$(IM,01) 

VRABRADIEEM A AGIMENCICEN (SIN SNTON S NINVE 
RSE : HTAB HT: PRINT SS$(IM,C1}: NORMAL : 


RETURN 


REM HARD COPY 


HTAB 1: VTAB 24: PRINT " Entrer la nouv 


elle valeur / Valider par <ENTER> / Quit 


ter par <ESC> "; 

CX = CX(NM):CY = CY(NM):IT$S = "Hard copy 
": GOSUB: 500 

POKE 768,0: POKE 769,0: REM IMAGE NORM 
ALE ET 560*192 


POKE 32,CX + 4: VTAB CY + 4: PRINT 


5040 W$ = P1$: PRINT "ECHELLE HORIZONTALE (1/ 
214202: GOSUB S300 IPN <" > 130THEN PI 
$ = W$ÿ: POKE 36,HT + 15: VTAB VT + 1: PR 
INT P1$: PRINT 

5050 W$ = P2$: PRINT "ECHELLE VERTICALE CA 


2) 2";: GOSUB 5300: IF NW < > 13 THEN P2 


$ = W$: POKE 36,HT + 15: VTAB VT + 1: PR 
INT P2$: PRINT 


5070 IF P1$ = "2" AND P2$ = "1" THEN FORI 
= ONTOL 4 PORE 4423 H\T,2394% NEXT PIS = 
"002": GOTO 5140 

5080 IF P1$ = "l" AND P2$ = "2" THEN POKE 7 
b8,428% FORT = 5 TO\ 7: POKE 4423 F T,23 
4: NEXT 

5090 IF P1$ = "2" AND P2$ = "2" THEN POKE 7 
68,128:P3$ = "002": GOTO 5140 

5100 W$S = P3$ 

5110 PRINT "MARGE GAUCHE ?";:HT = PEEK (36) 
:VT = PEEK (37): PRINT P3$;: POKE 36,HT 
+ 2 OVTABEITNES 1:  TNPUT Me p36: PRINT. P 
3$; 

5120 IF P3$ = "" THEN P3$ = W$ 

5130 P3$ = "RIGHTS ("000" + P3$,3) 

5140 CALL ACTIVE 

5150 PRINT.  CHRS (27) + CHRS (62};:: PRINT. 
CHERS 27)  CHRS (76) + P3$: 

5160 CALL HARDCOPY 

5185 POKE 4423,44: POKE 4424,0: POKE 4425,3: 
POKE 4426,16: POKE 4427,3: POKE 4428, 32 
: POKE 4429,237: POKE 4430,253 

5190 TEXT : HOME 

5200 RETURN 

5300 HT = PEEK (36):VT = PEEK (37): PRINT W 
$; 

5305 POKE 36,HT + 15: VTAB VT + 1: CALL TCHE 
:W 

5310 IF W = 27 THEN POP : RETURN 

5312 IF W = 13 THEN 5320 

5315 IF (W < > 49 AND W < > 50) THEN PRIN 
TOCHARS (7): 2:1G0TO0: 5305 

5320 W$ = CHR$ (W): PRINT W$: RETURN 

8999 : 

9000 REM MENU PRINCIPAL 

9010 : 

9020 TEXT : HOME 

9030 PRINT " IMAGES DOUBLE HAUTE RESOLU 
TION - R.Jost (1986)" 

9040 NM = 1:IM = 1 

9050 GOSUB 1000 

9055 IF K = 27 THEN GOSUB 800: GOTO 9020 

9060 NM = 2: ON C1 GOSUB 10000,12000, 900, 5000 
, 800 

9070 GOTO 9020 

9990 : 

10000 REM MENU CHARGEMENT 

10010 : 


10020 IM = 2: GOSUB 1010 

10030 IF K = 27 THEN RETURN 

10040 NM = 3:C0 = C1:TAS$ = " 17": 
HEN TA$ = " 33" 

10050 (ON C1 GOSUB 10070,10080,10120,10130: T 
EXT : HOME 

10060 RETURN 

10070 POKE 49236,0:IT$ = "Image DHGR 16K":A$ 
= ",A$2000": GOSUB 100: POKE 49152,0: C 


TENCO = LT 


ALL TRANSFERT, 1,0: POKE 49153,0: GOSUB 1 
2070: POKE 49236,0: RETURN 
10080 ITS = 


“deux moitiés DHGR" 
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10090 POKE 49236,0: GOSUB 100:A$ = ",AS2000" 
: POKE 49237,0: GOSUB 260 
10100 POKE 49236,0: GOSUB 181: GOSUB 260: GO 
SUB 12070 
10110 RETURN 
10120 POKE 49236,0:ITS = "deux images HGR":A 
$ = ",AS$S4000": GOSUB 100: CALL H1,0: GOS 
UB 181: CALL H1,20: GOSUB 12070: RETURN 
10130 ITS = "image HGR -> DHGR 16K":A$ = ",AS 
2000": GOSUB 100: CALL H2: GOSUB 12070: 
RETURN 
279901 
12000 REM TRAITEMENT IMAGE 
120100: 
12020 IM = 3:NM = 2 
12030 GOSUB 1010 
12040 IF K = 27 THEN RETURN 
12045 IF C1 = 1 THEN GOSUB 12070: GOSUB 107 
0: GOTO 12040 
12050 ON C1 GOSUB 12070,12080,12100,12110,12 
120,12130,12090,12150,12170,12140,12160, 
12180: GOSUB 12070: GOSUB 1070 
12060 GOTO 12040 
12070 POKE 49160,0: POKE 49165,0:X = PEEK ( 
49232) + PEEK (49234) + PEEK (49239) + 
PEEK (49246): REM AFFICHE L'IMAGE 
12072 R = PEEK ( - 16384): ON R < 128 GOTO 1 
2072:R = R - 128: POKE - 16368,0 
12074 IF R = 13 OR R = 27 THEN TEXT : RETUR 
N 
12075 GOTO 12072 
12080 HGR : POKE 49234,0: POKE 49237,0: CALL 
62450: POKE 49236,0: RETURN : REM EFFA 
CE L'IMAGE 
12090 CALL NEG: TEXT : RETURN : REM NEGATIF 
DE L'IMAGE 
12100 CALL TRANSFERT, 3,2: TEXT : RETURN : RE 
M TRANSFERT EN MEM AUXI 
12110 CALL TRANSFERT, 5,2: TEXT : RETURN : RE 
M VERS MEM AUXI $8000-BFFF 
12120 CALL TRANSFERT, 2,2: TEXT : RETURN : RE 
M RAPPEL DE LA MEM AUXI 
12130 CALL TRANSFERT, 4,2: TEXT : RETURN : RE 
M RAPPEL AUXI S$S8000-BFFF 
12140 CALL CG: RETURN : REM COPIE GAUCHE -> 
DROITE 
12150 CALL IG: RETURN : REM INVERSE PARTIE 
GAUCHE 
12160 CALL MI: RETURN : REM MIROIR 
12170 CALL ECHANGE: RETURN : REM PERMUTER L 
ES DEUX MOITIES DE L'ECRAN DHGR 
12180 POP : RETURN 
14990 : 
15000 REM TRAITEMENT ERREUR DOS 
150050; 
15010 CALL FAUTE 
15020 PRINT CHR$ (7);: HTAB 1: VTAB 15 
15030 ER = PEEK (222):EL = PEEK (218) + 256 
PAPER (213) 
15040 INVERSE 
15050 IF ER = 4 THEN PRINT "DISK PROTEGE EN 
ECRITURE";: GOTO 15120 
15060 IF ER = 6 AND EL = 20090 THEN PRINT " 
METTRE UNE DISQUETTE CONTENANT DHGRTOOL. 
O0": CALL - 741: GOTO 20090 
15070 IF ER = 6 AND EL = 20095 THEN PRINT " 
LE PROGRAMME HARD (POM'S #18) DOIT FIGUR 
ER SUR LA DISQUETTE": CALL - 741: GOTO 
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20100 
15080 IF ER = 6 THEN PRINT "CE FICHIER N'EX 
ISTE PAS";: GOTO 15120 
15090 IF ER = 8 THEN PRINT "ERREUR D'ENTREE 
/SORTIE ! ";: GOTO 15120 
15100 IF ER = 9 THEN PRINT "DISK REMPLI ";: 
PRINT D$"DELETE"MS: GOTO 15120 
15110 PRINT "ERREUR #"ER" À LA LIGNE #"EL: T 
EXT : END 
15120 NORMAL : FOR T = 1 TO 2000: NEXT : PRI 
NT CHRS$ (7); 
15130 IF EL = 450 OR EL = 460 THEN 480 
15140 END 
19990 
20000 REM 
20005 : 
20010 TEXT : HOME : ONERR GOTO 15020 
20040 D$ = CHR$ (4): PRINT D$"PR#3" 
20070 TRANSFERT = 2048:NEG = TR + 3:MI = TR + 
6H mOTR TE SSH IN = TRI 12:ECim ITR Fi 1 
5:CG = TR + 18:IG = TR + 24:FAUTE = TR + 
30:HARDCOPY = 4144 
20080 TCHE = TR + 33:ACTIVE = TR + 36:DESACTI 
VEuæL TR +39 
20090" TE PEER (2048) + "PEEK (2050) < > 86 
THEN PRINT D$"BLOAD DHGRTOOL. O0" 
20095 IF PEEK (4144) + PEEK (4154) < > 38 
5 THEN PRINT D$"BLOAD HARD, A$1000" 
20096 POKE 4304,16: POKE 4334,16: POKE 4339, 
16: POKE 4443,16: POKE 4453,16: POKE 448 
7,16 

20097 POKE 4151,234: POKE 4152,234: POKE 415 
3,234: POKE 4506,DESACTIV / 256: POKE 45 
05,DESACTIV - PEEK (4506) * 256: REM 
MODIFIE LES APPELS PR# DANS HARD. 

20100 DIM S$(5,14)} 

20105 ONERR GOTO 15000 

20110 P15 = "]Mep2$ = MTM:P3S = "002" 


20120 DATA "Charger une image", pi Rte 
er l'image", "Sauver une image DHGR", 
"Imprimer une image DHGR", "Quitter" 


20P300S CIN me NS EOR I TOTONS MIE PRERDTS SA 
TNINEXT HT (1) 2 ES RE (m2 CA (10m 5 
:CY(1) = 2:IT$(1) = "Menu Principal" 

20140 DATA “Charger une image 16K", die] 
häarger deux images DHGR", "Charger deu 
x images HGR", "Charger une image HGR" 
’ "Retour au MENU principal" 

20150 S(2) = 5: FOR I = 1 TO S(2}: READ SS$S(2, 
I): NEXT :HT(2) = 28:HL(2) = 4:CX(2) = 7 


:CY(2} = 4:IT$S(2) = "Chargement d'une im 
age" 

20160 DATA "Voir l'image", "Effacer 
l'image", "Sauver en mem auxi-l", 


"Sauver en mem auxi-2", "Rappel de 1a 
mem auxi-1", "Rappel de ia mem auxi- 
2" 

20170 DATA "Negatif de l'image", "Ne 
gatif moitie gauche", "Permute les de 
ux moities", "Copie moitie gauche a d 
roite", "Miroir", "Retour au MENU 
principal" 

20180 S(3) = 12: FOR I = 1 TO S(3): READ S$(3 
1): NEXT :HT(3) = 31:HL(3) = 3:CX(3) = 
9:CY(3) = 6:IT$(3) = "Traitement image" 

20210 X = PEEK (49239): NORMAL : GOTO 9000 











Récapitulation 
DHGRTOOL.O 


Après avoir 

saisi ce code 

sous moniteur, 

vous le sauvegarderez 

par : 

BSAVE DHGRTOOL,.C,A$800, L$39B 
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0998- 
09A0- 
a9A8- 
09B0- 
09B8- 
09C0- 
o9c8- 
09D0- 
09D8- 
09E0- 
09E8- 


A2 
09 
55 
20 
E6 
60 
69 
1C 
18 
A2 
A6 


14 
85 
co 
C2 
ED 
B1 
14 
91 
60 
co 
ED 


86 
18 
20 
09 
A5 
18 
A8 
18 
A2 
86 
20 


EC 
84 
C2 
C8 
ED 
85 
B1 
68 
00 
EE 
42 


A6 
19 
09 
Ca 
C5 
1C 
18 
A8 
86 
A2 
09 





20 
EB 
54 
DO 
DO 
48 
1D 
1D 
86 
86 
18 





Récapitulation 


HARD 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par : 

BSAVE HARD, A$4000,L$1A1 
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Un jeu de réflexion : 
Souris-Laser 





//e+ 
11€ 
//gsS 


ProDOS 






Souris-Laser vous est pré- 
senté ici en deux versions : 
Basic mApplesüont"et 
assembleur. Une occasion de 
comparer la conception et 
d'apprécier la vitesse de 
réaction... peut-être aussi 
d'adopter définitivement 
l'assembleur. 


Souris Laser 
Version 
Basic 


La souris livrée avec les //c et 
adaptable aux //e est un accessoire 
fort agréable pour l'utilisation de 
nombreux logiciels. La 
documentation de base ne permet 
pas d'en maîtriser la program- 
mation de haut niveau mais 
indique un moyen simple de la 
contrôler sous BASIC. La routine 
correspondante est ici mise en 
œuvre pour la manipulation d'un 
jeu de réflexion généralement 
connu sous le nom de “boîte 
noire”. 


Les règles 
Aux intersections d'une grille 8 x 


8, trois atomes se placent au 
hasard. En émettant, 


horizontalement ou verticalement, 
des rayons ‘laser’ à partir des 
canons disposés à la périphérie de 
la grille, et en observant les points 
de sortie de ces rayons, il faut 
trouver l'emplacement des atomes 
sachant que : 
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° un rayon frappant directement 
un atome est absorbé ; 

+ tout rayon détectant un atome 
en avant sur sa droite 
(respectivement gauche) est 
dévié sur. la. gauche 
(respectivement droite) ; 

° un rayon dont la trajectoire 
passe entre deux atomes 
situés immédiatement de part et 
d'autre est réfléchi ; 

* si un atome est situé contre un 
bord, tout rayon émis d'un 
canon disposé de part et 
d'autre de l'atome est 
immédiatement réfléchi ; 

* les canons ont le double rôle 
d'émetteur et de détecteur ; 

+ le tir est déclenché en cliquant 
la souris dans l'un ou l'autre 
des canons (zones jaunes 
extérieures à la grille) ; trois 
tirs sont possibles sur chacun. 


Au lancement du programme (RUN 
SOURIS.LASER), un menu 
d'options constitué de grosses 
lettres en basse résolution 
s'affiche. Cliquer dans la case 
correspondante pour choisir : 


Jeu normal : le premier curseur 
est rose ; on dispose de 6 coups. 


Jeu facile : le premier curseur 
est vert ; on dispose de 12 coups 
et les trajectoires des rayons sont 
visualisées. 


Démonstration : les atomes 
sont visibles et les trajectoires 
visualisées ; on peut vérifier les 
règles du jeu. 


Stop : fin du jeu. 


Benoît Mesnil 


Une fois l'option principale 
sélectionnée, le jeu peut 
commencer. Un second menu 
d'options est affiché, les deux 
premières dans la couleur du 
niveau choisi (vert ou rose) : 


+ commencer une nouvelle partie 
au même niveau de difficulté ; 

+ continuer la partie en cours, du 
moins s'il reste des couleurs ; 

+ donner les solutions en 
affichant les atomes. 

Stop : fin du jeu. 

La signification des initiales est 

rappelée dans un message en bas 

de l'écran. 


Pour effectuer le tir, on amène le 
curseur sur un Canon et on 
‘clique’ ; un pavé de la couleur 
du curseur s'inscrit dans le canon 
d'origine puis, sauf absorption, 
dans le détecteur de sortie. 


On peut à tout moment tester la 
présence d'un atome : amener le 
curseur dans la grille et cliquer à 
l'emplacement supposé. Si un 
atome s'y trouve effectivement, 
un pavé vert pâle s'inscrit et un 
signal retentit. Pour reprendre le 
jeu, ramener le curseur hors de la 
grille ou dans la case de l'option 
C et cliquer. Le pointeur reprend 
la couleur du tir suivant ou reste 
noir s'il n'y a plus de couleur 
disponible. Il n'y a pas de pénalité 
en cas de test infructueux d'une 
solution : ceci peut être envisagé à 
condition d'éliminer les cas 
d'échec dus à un positionnement 
imprécis du pointeur. 


On pourrait augmenter à quatre le 
nombre d'atomes ; paradoxale- 








DURE ER DR LUS LABELS 0) DOS 2) 22210 A D, 2) 3 2 LE | Se 2 1 À 1) 1h 


D PR VE PORT ONUUE OÙ ŒOUITE e 


AL LE LL AL LA); à 


sh. HN 2 


4 


ment, cela semble rendre le jeu 
plus facile. 


Le programme 


Voici quelques indications sur la 
programmation du jeu. 


Lignes 30-36 : la souris est mise 
en service. 

40-85 : la grille et le premier menu 
sont affichés. 

100-130 : lecture de la souris: 
position et déclic. 

135-138 : temporisation du 
curseur piloté par la souris. 
140-180 : la souris a été ‘cliquée’, 
aiguille vers le traitement 
approprié. 

200 : souris cliquée dans la zone 
des menus. 

205-248 : si le premier menu 
affiché, enregistre l'option et 
appelle le second menu. 
250-280 : traite l'option du 
deuxième menu. 

400-520 : le rayon a été émis ou 
se propage horizontalement: 
460-465 : en ligne supérieure de 
la grille. 

470-475 : en ligne inférieure de la 
grille. 

480-488 : jeu facile, affiche un 
traceur. 

494-498 : le rayon ressort à droite 
ou à gauche. 

500-520 : il tourne ou ressort en 
haut ou en bas. 

600-705 : le rayon a été émis ou 
se propage verticalement. On 
retrouve, au chiffre des centaines 
près, les groupes de ligne 
effectuant les traitements 
équivalents à ceux des sections 
listées ci-dessus. 

720-726 : fin de tir. 

900-910 : fin du jeu, déconnecte 
la souris. 


Sous-programmes 


750-790 : place les atomes. 
800-845 : donne les solutions. 
850-890 : la souris a été cliquée 
dans la grille : teste les solutions. 


Ayant été un de mes tout premiers 
programmes sur Apple, celui-ci 
n'est pas optimisé et est de ce fait 
assez lent ; les indications 
ci-dessus permettront de mener à 
bien les améliorations nécessaires. 


Laser.Mouse 
version ‘'Asm' 


Le jeu obéit aux mêmes règles que 
la version Basic et se présente de 
façon tout-à-fait similaire : les 
options sont choisies en cliquant 
dans des cases de menu dessinées 
en basse-résolution : 


Menu 1 


J Jeu normal, 6 essais, pas de 
visualisation des trajectoires ; 


F Jeu facile, 12 essais, 
visualisation des trajectoires. 


D Démonstration, comme F, 
avec visualisation des cibles. 


Menu 2 
J Rejouer ; réinitialisation et 
retour au Menu 1. 


C Continuer ; il n'est toutefois 
plus nécessaire d'y cliquer pour 
reprendre le jeu après avoir 
recherché une cible dans la grille. 


D Donne les solutions. 


Dans les deux cas, S termine le 


jeu. 


La principale différence vient 
évidemment de la rapidité 
d'exécution qui ne laisse aucune 
chance de situer les obstacles par 
la durée de l'essai. 

Malgré les temporisations, il est 
même recommandé de ne pas 
s'endormir sur le bouton de la 
souris. 

Un problème demeure qui, 
apparemment, n'est pas d'origine 
logicielle : il faut veiller à ne pas 
déplacer la souris au moment où 
l'on clique, en particulier dans la 
case J du Menu 1. 


Le jeu se compose de deux 
éléments principaux : 

° Le fichier LASER.MOUSE, 
chargé en $6000 : programme de 
jeu proprement dit. 

+ Le fichier LASER.SBR, chargé 
en $7000 : sous-routines et 


utilitaires. Il convient de les 
charger (BLOAD) dans cet ordre 
avant de démarrer par un CALL 
24576. Le programme Basic 
LASER.START se charge de ces 
opérations. 


Descriptif 

Comme pour la version Basic, 
voici quelques informations sur la 
conception du programme. 


Mémoires Page Zéro 


$6-7 : adresse de base des 
firmwares souris ($C400 pour 
slot 4): on a en effet utilisé le 
mode standard d'appel des 
sous-programmes souris via les 
vecteurs de la table fournie par le 
constructeur. 


$8-9 : adresse des tables de 
messages. 
$19-1A adresse ($7600 


actuellement) de la grille réduite 8 
x 8 dans laquelle s'exécute le jeu. 
$1B-IC : coordonnées x et y des 
particules en mouvement dans 
cette grille. 

$1 : drapeau initialisé à O ; vaut 1 
pour jeu normal, 3 pour jeu facile 
et 5 pour le mode démonstration. 
Bit 7 à O pour déplacement vers la 
droite ou vers le bas, à 1 pour 
déplacement vers la gauche ou 
vers le haut. 

$1E 
Cours. 
$1F : sauvegarde de la couleur du 
fond sous le curseur. 

$4E-4F : RNDL et RNDH utilisés 
pour positionnement ‘au hasard’ 
des cibles. 

$FE-FF : coordonnées x et y du 
curseur à l'écran. 


: couleur du curseur en 


Routines système 


Le programmes utilise les routines 
souris via les vecteurs de la table 
en page $C4. 
Il utilise également les routines 
suivantes : 
PLOT S$F800 
HLINE $F819 
VLINE $F828 
CLEARTOP $F836 
SETCOL S$F864 
SCRN $F871 
SETTEXT $FB39 
SETGR $FB40 
$FCS58 


HOME 
BELL S$FBDD 
$FCA8 


WAIT 
COUT $FDED 


Programme LASER.MOUSE 


$6000-600Ë : Initialisation 
d'adresses 

$6010-6017 : INITMOUSE 
(appelé via CallMouse en $7000) 
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$6018-6030 : CLAMP X (id.) 
$6031-6036 : CLAMP Y (id.) 
$6037-6040 : SETMOUSE (id.). 
Mode transparent adopté par 
facilité. 


$6041-6048 : CLEARMOUSE 
(id.) 

$6049 : Appel de Menul en 
$700B 

$604C : Mise à zéro de la grille de 
jeu et tirage des cibles par les 
sous- routines en $700B et $7138 
$6050-607F : READMOUSE: 
lecture de la souris et affichage/ 
déplacement du curseur ; boucle 
tant que la souris n'est pas 
cliquée. 

Au-delà de $6080, traitement 
selon les choix obtenus par 


on a cliqué dans la zone de jeu. 
$6096-60CA : stop ou options 
premier menu. 

$60CB-60EA : options deuxième 
menu. 

$60EB-6104 : élimination des 
coups illégaux. 

$6105-612D : dispatche vers tir 
en ligne ($615A) ou en colonne 
($6220). 

$612E-6157 : on a cliqué dans la 
grille ; recherche de solution. 


Tir en ligne 
$615A-6183 : début de tir ; tests 


Programme 
SOURIS.LASER 


5 REM %** LA SOURIS LASER ** 
6 REM 
15 D$ = CHR$ (4):SC = 25,575 


sur les bords de la grille. 
$6184-61F9 : la particule se 
déplace horizontalement. 
$61FB-6205$ : la particule a été 
réfléchie. 

$6206-6215 : la particule sort 
horizontalement. 


Tir en colonne 


$6220-625F : début de tir. 
$6260-62E3 : déplacement 
vertical de la particule. 
$62E4-62EE : la particule a été 
réfléchie. 

$62EF-62FB : la particule sort 
verticalement. 

$6300-6323 : fin de tir ; test sur la 
couleur ; temporisation ($631C- 
$6320) et retour à READMOUSE 
en $6050. 

$6330-6340 : fin du jeu ; 
déconnexion de la souris. 


Sous-programmes 
LASER.SBR 


$7000-7004 : dispatche vers les 
routines firmware souris. 

$700B-7137 : affichage du 
premier menu : traçage des cases 
($7011-704F), des lettres 
($7050-70DB), de la grille 
($70DC-7119) ; affichage des 
premiers messages ($711A- 
7137); la routine d'affichage en 
7126-7137 est également utilisée 
pour les autres messages. 


$7138-717E : Mise à zéro de la 
grille de jeu ($7138-7142) et 
tirage des positions de cibles par 
transformations de RNDH et 
RNDL. 

$7180-7185 : transforme les 
coordonnées écran en coor- 
données dans la grille de jeu. 
$7188-718C : transformation 
inverse. 

$7190-719A : positionnement 
dans la grille de jeu en fonction du 
rang de la colonne. 


$71A0-71DC : affichage du 
deuxième menu et des messages 
correspondants. 

$71E0-71E9 : affichage du 


message d'erreur. 

$71F0-7224 : visualisation des 
cibles (options D des cases 
menus). 

$7228-725E : début et fin de tiren 
ligne ; la section $7246-725E est 
aussi utilisée en cas de réflexion. 
$7260-7290 : début et fin de tir en 
colonne ; point d'entrée réflexion 
en $7278. 

$7292-72BC : affichage de la 
trajectoire des particules (options 
F et D du menu 1). 
$72C0-72C6 : changement de 
signe du drapeau $1D lors des 
inversions de sens de 


déplacement. 


70 REM %* TRACE LA GRILLE * 

72 CS = 0:CG = 13:CJ = 12:FAC = O:DEM = O:PC 
= 2?TD = 15 

74 COLOR= CG:ECR = 1 

76 FOR X = 14 TO 28 STEP 2 

YYMOVLIN 10,12 ATX? VLIN 14,29 AT X°/VLIN. 3 


0,32" ATVX 


78 HLIN 10,12 AT X: HLIN 14,28 AT X: HLIN 3 


20 DIM PT(7,7) 0,32 AT X 

30 REM *ALLUME LA SOURIS * 80 NEXT X 

32 PRINT D$;"PR# 4": PRINT CHR$ (1) 82 COLOR= 0: FOR X = 4 TO 6: VLIN 12,16 AT 
34 PRINT D$;"PR# O0" X: NEXT X 


36 PRINT DS$;"IN# 4" 


85 COLOR= 12: VLIN 12,16 AT 4: HLIN 5,6 AT 


40 GR : HOME : COLOR= 13 Te ETOTeS), T4 

42 "OVTINN2,33 AT 2EOVLIN 2,33 AT,6 90 S = FRE (0) 

AAUNHLTIN 2, SU AT LWALIN 3, 7 AT TO ATINCSSI7 94 T3$ = " J -> JEU NORMAL F. => FACILE" 
AT 18 96 T4$ = " D -> DEMONSTRATION S -> STOP" 

DOMALINIS, JT UAT 2ÉMHLIN 2, 6) AT 3€ 100 REM * Lit la souris * 


48 COLOR= 11: VLIN 4,8 AT 6: HLIN 4,5 AT 8: 102 HOME 


PLOT 4,7 


50 COLOR= 15: FOR X = 28 TO 32 STEP 2: HLIN 


4,6 AT X: NEXT X 
51 PLOT 4,29: PLOT 6,31 


53 COLOR= l: HLIN 3,6 AT 20: VLIN 21,23 AT 


105 COLOR= CS: 
110 VTAB 21: PRINT T3$: VTAB 22: PRINT T4$ 


PLOT X,Y 


D'AUMRAENPUTANTCe ETS 
1260 Em INT (X /USC) ES YU me NU INTU(Y 0 SC)ICS 


SCRN( X, 


Y) 


4: HLIN 3,6 AT 24: VLIN 21,23 AT 6 130 IF S = l THEN 150 
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JOUER TURN ES TRE TENTE ETIENNE ANUNEN 


135 


138 
140 


150 
195 


160 


165 
170 


HS 


180 
200 
202 
205 
210 


215 


220 
225 
235 
238 
240 


242 


248 
250 
255 
260 
265 
270 
275 
280 
400 
405 
410 
412 


415 
420 
425 
430 


431 
432 
434 
440 
445 
450 
452 
455 


460 
461 


COLOR= CJ: FOR À = 0 TO 20: PLOT X,Y: N 
EXT À 


GOTO 105 
REM ** SOURIS CLIQUEE _ CHOIX OU TIR * 
* 

IF X < 8 THEN 200 

IF X = > 14 ANDX< = 28 AND Y= >]1 
4 AND Y < = 28 AND ECR = 2 THEN 850 


TSX TO NOR AXES SPORE OLODOR ASE 2 
OR CS = 0 THEN 105 
COLOR= CJ 
IF X < 14 OR X > 28 THEN 400: REM LI 
GNE 
IF Y < 14 OR Y > 28 THEN 600: REM CO 
LONNE 
GOTO 105 
IF Y > 26 THEN 900 
IF ECR = 2 THEN 250 
IF Y < 10 THEN CJ = 11: GOTO 220 
IF Y > 10 AND Y < 18 THEN FAC = l:PC = 
1260701220 
IF Y > 18 AND Y < 26 THEN FAC = l:DEM = 
1:PC = l:TD = 30 
GOSUB 750 
IF DEM = l THEN GOSUB 800 
T3$ = "C -> CONTINUER, J -> REJOUER" 
T4$ = "D -> DONNE LES SOLUTIONS" 
COLOR= 0: FOR X = 4 TO 6: VLIN 12,16 AT 
X: NEXT X 
COLOR= CJ: VLIN 12,16 AT 4: HLIN 5,6 AT 
12: HLIN 5,6 AT 16 
HOME :ECR = 2: GOTO 105 
IF Y < 10 THEN 70 
TENYOSCLO ANDY ET TO" THENV27 0 
IF Y > 18 THEN GOSUB 800 
GOTO 105 
IF CJ > O0 THEN 105 
T3$ = "IL N'Y À PLUS DE COULEUR" 
GOTO 105 
ST = 1:°XX = 12:C = 0:I = 0:J = 0 
IF X > 28 THEN ST = - l:XX = 30:C = 
TO OTNT( (Te LA) N/D 2) VV me) TAN 2LSE 
À = SCRN( XX,YY): IF À < > CG AND À 
O0 THEN XX = XX - ST: GOTO 412 
PLOT XX,YY: PRINT CHRS$S (7) 
Del, HE LU me 
TFVPT (CL) (= I THEN 725 
IF (C = 0 AND ST < 0) OR (C = 7 AND ST 
> 0) THEN 490 
IF PT(C + ST,L) = 1 THEN 725 
IF L = 0 THEN 460 
IF L = 7 THEN 470 
IF I = 1 AND (PT(C,L + 1) = ]l OR PT(C,L 
= 1): = 1) THENIC æ C = ST'ST =, = ST: 
GOTO 494 
TRNET(C FIST Lt 1} um I UAND ETC ST; 
- 1) = 1 THEN ST = - ST: GOTO 480 
IF PT(C + ST,L + 1) = 1 THEN I = I + 1: 
ST = - l: GOTO 620 


TIM PT(C A ST, L = 1) = 1 THEN Ti æ T\+tle 

ST = l: GOTO 620 

GOTO 480 

REM Ligne 0 

IF I = 1 AND PT(C,L + 1) = 1 THEN C=C 
STE ST RE 


— ST: GOTO 494 





464 


465 
470 
471 


475 


480 
482 


485 
488 
490 


494 
496 


498 
500 
505 


520 
600 


605 
610 
612 


615 
620 
625 
630 


631 
632 
634 
640 
645 
650 
652 
655 
660 
661 
664 
665 
670 
671 
674 


680 
682 


685 
688 
690 


TFUPT(C + ST,L + 1) = T1 THEN Y = 12:ST 
= = 1: GOTO' 500 
GOTO 480 
REM Ligne 7 
TFCT = T' AND PT(C,L = 1) = 1 THEN C = CC 
- ST:ST = - ST: GOTO 494 
IF PT(C + ST,L - 1) = l THEN Y = 30:ST 
= l: GOTO 500 
IF FAC = 0 THEN 490 
XX œ TO D RNCS TV ml AR 2 UF L:CO) 
RN( XX,YY) 
FOR À = 1 TO TD: PLOT XX,YY: NEXT À 
COLOR= CO: PLOT XX,YY: COLOR= CJ 
CmiC 4 ST IPC > =) OLAND CO <. = A TRE 
N 420 
X=14+2*C:Y = 14 +2 * L 
À =, SERN( X,Y): IF À < > CG AND A >'0 
THEN X = X + ST: GOTO 496 
GOTO 720 
XI mL TETE N2 UC 
Am ESCRNI X,Y) °LTFVAT<" >\CG'AND A > 0 
THEN Y = Y + ST: GOTO 505 
GOTO 720 
STim LVY = 12!Lm 0 Je UT =, 0: REM UC 
OLONNES 
IF Y > 28 THEN ST STE VE SONT ie 
Cm PIN (XX = TA ND) XX me 140 2 NE 
AVæMRECRN( XX, YY): IF À < > CG AND À > 
O0 THEN YY = YY - ST: GOTO 612 
PLOT XX,YY: PRINT CaäR$ (7) 
J'æNUMH0I:I = I + 1 
IF PT(C,L) = 1 THEN 725 
IF (L = 0 AND ST < 0) OR (L = 7 AND ST 
> 0) THEN 690 
IF PT(C,L + ST) = l THEN 725 
IF C = O0 THEN 660 
IF C = 7 THEN 670 
DPEEUEm 1 AND, (PTE +1, Lil = 1 (OR PT(Cr' = 
1,L) = 1) THEN L = L - ST:ST = - ST: 
GOTO 694 
IFVETUIC + l,L + ST) = 1 AND PT(C - 1,L 
+ ST) = 1 THEN ST = - ST: GOTO 680 


SC 


TENPTI(CE 1,1 $ ST) = 1 THEN JS = J' + 1; 
ST = - l: GOTO 420 

DAC TD ENST) Ne 1 THEN es TH 1 
ST = l: GOTO 420 

GOTO 680 


REM Colonne 0 
IF J = 1 AND PT(C + 1,L) = 1 THEN L =2L 


ST ST um M STMGOTO 694 
FEMET (CU 1} LUF ST) (= ZoTHEN' X = 12:5ST 
= - l: GOTO 700 
GOTO 680 


REM Colonne 7 
IF J = l AND PT(C - 1,L) = 1 THEN L =L 
=NSTST = — ST: GOTO 694 

IF PT(C - 1l,L + ST) = 1 THEN X = 30:ST 
= 1: GOTO 700 
IF FAC = 0 THEN 690 

Am LATE 2e NC Ve TEE DR TE CO mi SE 
RN( XX,YY) 

FOR À = 1 TO TD: PLOT XX,YY: NEXT À 
COLOR= CO: PLOT XX,YY: COLOR= CJ 

LémeL HUETS TEL > læ OAND I, hum. 7 THE 
N 620 





GP 
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X RÉCENT SE OC 

A = SCRN( X,Y): IF À < > CG AND À > O0 
THEN Y = Y + ST: GOTO 696 

GOTO 720 

Y=14+2*1L 

A = SCRN( X,Y): IF À < > CG AND À > 0 
THEN X = X + ST: GOTO 705 

PLOT X,Y: PRINT CHR$ (7): REM Fin de 
Tir 

CU em ICT = PCT TF CNE = 


O0 THEN CJ = O:T 


3$ = "IL N'Y À PLUS DE COULEUR" 
GOTO 110 
REM * PLACE LES ATOMES * 


FOR I = O0 TO 7: FOR J = O0 TO 7 


760 PT(I,J) = 0: NEXT J,I 
TTOMEORNT = ATOS. 
745C =. INT (9 #%" IRND (1) ):Lt=. TNTU(ONXS  R 
ND (1)) 
778 IF PT(C,L) = 1 THEN 775 
780 PT(C,L) = l: NEXT I 
790 RETURN 
800 REM %* Ss-Pr REPONSE * 
805 COLOR= 1 
610" FOR Te 0) TO 77 FOR J = OVTO 7 
812 IF PT(I,J) = O THEN 840 
9820 Z m 14 +42 * I:2Z = 14 +2 * J 
830 PLOT Z,ZZ 
840 NEXT J,I 
845 RETURN 
850 REM Test des solutions 
852 HOME :CS = SCRN( X,Y) 
860 COLOR= CS: PLOT X,Y 
864 VTAB 22: PRINT "CLIQUER HORS CADRE POUR 
REJOUER" 
666. TNPUT MN REV 
670 X =UINT.  (X1./SC) :Y° =. INT. (Y  / SC): CSi= 
SCRN( X,}Y) 
872 COLOR= 14: FOR À = 0 TO 20: PLOT X,Y: N 
EXT À 
874 IF S < > 1 THEN 860 
876 IF X < 8 AND Y > 26 THEN 900 
878 IF X <t 14 /ORVX > 2810RY < 14 OR 117028 
OR CS = O0 THEN HOME : GOTO 105 
6012: B1 06 
Désassemblage 6014: AA 
. e 6015: 20 00 70 
Récapitulation 6018: A9 24 
LASÉR.MOUSE é01A: 8D F8 04 
601D: 9C F8 05 
: pe VAR à 6020: 9C 78 04 
Après avoir saisi ces trois colonnes de 
codes sous moniteur, vous les sauvegarderez ct CRE 
ï. ar 
BSAVE LASER.MOUSE, A$6000, L$343 6022: AA 


902 
304 
905 
910 


Tom CENTRINO) ER ENT NT (RER 
4) / 2) 
TELPT(T TION TI THENTE 60 


COLOR= 14: PLOT X,Y 

FOR À = 1 TO 3: PRINT CHRS$S (7): NEXT À 
GOTO 866 
TEXT : HOME : 
PRINT D$;"PR# 4": 
PRINT D$;"PR# 0" 
PRINT D$;"IN# O0" 
END 


HTAB 8: PRINT "FIN DU JEU 


PRINT CHRS (0) 





Programme LASER.BAS 


5 REM 
10 REM LANCEMENT DU JEU LASER.MOUSE 
15 REM 
20 TEXT : HOME :D$ = CHRS (4) 
30 VTAB 6: HTAB 15: INVERSE PRINT "LASER, 
MOUSE": NORMAL : PRINT : PRINT 
40 PRINT "Pour pouvoir jouer, vous devez av 
OT EPRTNT 
45 PRINT " - Un Apple //c ou //e avec 65C02 
50 PRINT " - Une souris connectée en Slot 4 
(//e)" 
52 PRINT " - Un moniteur ou TV couleur" 
55 PRINT : PRINT "Si vous ne remplissez pas 
ces conditions" 
60 PRINT "frappez ESCape ou CTL-C, si OK RE 
TURN": PRINT : HTAB 15: PRINT "==> ">? 
GET A$ 
70 IF A$ = CHRS$S (27) OR A$ = CHRS$S (3) THE 
N 100 
80 PRINT : VTAB 8: CALL - 958: PRINT "Char 
ge LASER. SBR" 
82 PRINT D$"BLOAD LASER.SBR, AS 7000" 
85 PRINT "Charge et lance LASER,MOUSE" 
90 PRINT DS'"BRUN LASER.MOUSE,AS6000" 
95 CALL 24576 
100 HOME 
LDA (06),Y 6045: AA TAX 
TAX 6046: 20 00 70 JSR 7000 
JSR 7000 6049: 20 0B 70 JSR 700B 
LDA #24 604C: 20 38 71 JSR 7138 
STA 04F8 604F: EA NOP 
STZ 05F8 6050: AO 14 LDY #14 
STZ 0478 6052: B1 06 LDA (06),Y 
STZ 0578 6054: AA TAX 
LDY #17 6055: 20 00 70 JSR 7000 
LDA (06),Y 6058: E6 4E INC 4E 
TAX 605A: AC 7C 04 LDY 047C 











607B: 
607E: 
6080: 
6082: 
6085: 
6087: 
6089: 
608B: 
608D: 
608F: 
6090: 
6093: 
6095: 
6096: 
6099: 
609B: 
609D: 
60A0: 
60A2: 
60A4: 
60A6: 
60A8: 
60AA: 
60AC: 
60AE : 
60B0: 
60B2: 
60B4: 
60B6: 
60B8: 
60BA: 
60BC: 
60BF': 
60C1: 
60C3: 
60C5: 
60C8: 
60CB: 
60CD: 
60CF': 
60D2: 
60D4: 
60D6: 
60D9: 
60DC': 
60DE : 
60E0: 
60E3: 
60E5: 
60E7: 
60EA: 
60EB: 
60ED: 
60EF': 
60F'1 : 
60F3: 
60F5: 
60F7: 
60F9: 
60FC: 
60FE: 
6100: 
6102: 
6104: 
6105: 
6107: 
610A: 
610C: 
610E: 
6110: 
6112: 
6114: 
6116: 
6118: 
611A: 
611C: 


7C 07 


7C 04 


E0 71 


FC 04 


30 63 


F0 71 


AO 71 
50 60 


41 60 


FO 71 
D3 71 


EO 71 


50 60 


FC 04 


64 F8 


5A 61 


BIT 
BPL 
INC 
LDX 
CPX 
BMI 
LDA 
AND 
BNE 
NOP 

JSR 
BRA 
NOP 
LDY 
CPY 
BMI 
JMP 
LDA 
BNE 
CPY 
BPL 
LDA 
STA 
STA 
LDA 
STA 
BRA 
CPY 
BMI 
LDA 
STA 
JSR 
BRA 
LDA 

STA 

JSR 

JMP 

CPY 
BPL 

JMP 

CPY 
BMI 

JSR 

JSR 

LDA 

BNE 
JSR 

STZ 

STZ 

JMP 
NOP 

STA 

LDA 

BEQ 
CPX 
BMI 
CPX 
BPL 
LDY 
CPY 
BMI 
CPY 
BPL 
NOP 
LDA 
JSR 
STX 
STY 
LDA 
CPX 
BMI 
CPX 
BMI 
ORA 
STA 
UMP 


{-30} 


{+0D} 


{+5C} 


{-45} 


{+03} 


{+27]) 


{+0C) 


{+11} 


{+03} 


{+04} 


{+03} 


{+06} 


{+07} 


{-0A) 
{-0E) 


{-12} 


(191 


{-1D} 


{+06} 


{+07} 


611F: 
6121: 
6123: 
6125: 
6127: 
6129: 
612B: 
612E: 
612F: 
6132: 
6134: 
6135: 
6136: 
6139: 
613B: 
613C: 
613E: 
6141: 
6143: 
6145: 
6147: 
6149: 
614B: 
614D: 
614F: 
6152: 
6155: 
6158: 
615A: 
615D: 
615F: 
6162: 
6164: 
6165: 
6167: 
6169: 
616C: 
616D: 
616F: 
6170: 
6172: 
6174: 
CUT 
6178: 
617A: 
617C: 
617D: 
617F: 
6181: 
6184: 
6185: 
6187: 
6189: 
618B: 
618D: 
618E: 
6190: 
6192: 
6195: 
6196: 
6198: 
6199: 
619B: 
619E: 
61A0: 
6122: 
61A4: 
61A7: 
61A8: 
61A9: 
61AA: 
61AC: 
61AD: 
61AF: 
61B1: 
61B2: 


19 
02 


62 


71 


71 


71 


F8 
FB 
60 


72 


71 


63 


61 


61 


62 


74 


63 





CPY 
BMI 
CPY 
BMI 
ORA 
STA 
JMP 
TYA 
JSR 
STA 
TAY 
TXA 
JSR 
STA 
TAX 
BEQ 
JSR 
STA 
LDA 


BEQ 
LDA 
STA 
LDY 
LDA 
JSR 
JSR 
JMP 
BRK 
JSR 
LDA 
JSR 
STA 
TAY 
LDA 
BEQ 
JMP 
TYA 
BEQ 
DEY 
LDA 
BEQ 
JMP 
INY 
CPY 
BEQ 
INY 
LDA 
BEQ 
JMP 
CLC 
LDX 
LDY 
BIT 
BMI 
INX 
CPX 
BMI 
JMP 
DEX 
BMI 
TXA 
BEQ 
JSR 
STA 
LDA 
BEQ 
JMP 
CLC 
PHP 
TYA 
BEQ 
DEY 
LDA 
BEQ 
SEC 
PHP 





#0E 

6129 {+06} 
#1D 

612E {+07} 
#80 

1D 

6220 


7180 
10 


7180 
1B 


6141 {+03} 
7190 

13 

(RDF 4 
6155 {+0E) 
#0E 

30 

FE 

FF 

F800 

FBDD 

6050 

00 

7228 

FF 

7180 

10 


(19),Y 
616C {+03} 
6300 


617C (+0D) 


(19),Y 
6177 {+03} 
61FB 


#07 
6184 (+08) 


(19),Y 
6184 (+03) 
61FB 


1B 
1C 
1D 
6195 (+08) 


#08 
6198 (+06) 
6206 


6206 ({+6E) 


619E (+03) 
7190 

19 

(19),Y 
61A7 (+03) 
6300 


61B8 (+0C) 


(19),Y 
61B3 (+02) 


07 
14 


19 
0F 


03 
FB 
1D 
80 
1D 
60 


09 
1D 
0F 
1D 
60 
4E 
1D 
06 
03 
92 
1D 
08 
1B 
1B 
1B 
08 
1B 
07 
21 
1B 
84 


co 
FE 
46 
00 
1C 
88 
FF 
co 
28 
00 


61 


62 


62 


72 


61 


72 


72 
63 


71 


72 
72 
63 


72 


71 


71 


63 


71 


INY 
CPY 
BEQ 
INY 
LDA 
BEQ 
PLP 
BCC 
JMP 
LDA 
ORA 
STA 
JMP 
PLP 
BCC 
LDA 
AND 
STA 
JMP 
INC 
LDA 
AND 
BEQ 
JSR 
BIT 
BPL 
LDA 
BEQ 
DEC 
BRA 
LDA 
CMP 
BEQ 
INC 
JMP 
NOP 
JSR 
LDY 
JSR 
JMP 
LDA 
JSR 
STA 
USR 
JSR 
UMP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
JSR 
LDA 
JSR 
TAX 
STA 
BEQ 
JSR 
STA 
LDY 
LDA 
BEQ 
UMP 
TXA 
BEQ 
DEX 
TXA 
BEQ 
JSR 
STA 
LDA 


#07 
61CC 


19), 


61CC 


61C3 
61FB 
1D 
#80 
1D 
6260 


61D8 
1D 
#0F 
1D 
6260 
4E 
1D 
#06 
61E3 
7292 
1D 
61EF 
1B 
6206 
1B 
61F7 
1B 
#07 
6206 
1B 
6184 


72C0 
FE 

7246 
6300 
1C 

7188 
sy D 

72C0 
7228 
6300 


7260 
FE 
7180 


1B 
6230 
7190 
19 
1C 


(19), 


623B 
6300 


6253 


6245 


7190 
19 


(19), 


{+14} 


x 
{+0F)} 


{+03} 


{+09} 


{+03} 


{+08} 


{+1B} 


{+08} 


{+11} 


{+03} 


Y 
{+03} 


{+15} 


{+03} 


d8 
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6249: F0 03 BEQ 624E {+03} 6298: EO 07 CPX #07 62F4: 20 88 71 JSR 7188 





624B: 4C E4 62 JMP 62E4 629A: FO 19 BEQ 62B5 {+19} 62F7: 85 FE STA FE 
624E: E8 INX 629C: E8 INX 62F9: 20 60 72 JSR 7260 
624F: EO 07 CPX #07 629D: 20 90 71 JSR 7190 62FC: EA NOP 
6251: FO OD BEQ 6260 {+0D} 62A0: 85 139 STA 19 62FD: EA NOP 
6253: E8 INX 62A2: B1l 19 LDA (19}),Y 62FE: EA NOP 
6254: 20 90 71 JSR 7190 62A4: FO OF BEQ 62B5 ({+0F) 62FF: EA NOP 
6257: 85 19 STA 19 62A6: 28 PLP 6300: A5 1D LDA 1D 
6259: B1 19 LDA (19),Y 62A7: 90 03 BCC 62AC {+03} 6302: 29 0F AND #0F 
625B: FO 03 BEQ 6260 {+03} 62A9: 4C E4 62 JUMP 62E4 6304: 85 1D STA 1D 
625D: 4C E4 62 JMP 62E4 62AC: A5 1D LDA 1D 6306: C6 1E DEC 1E 
6260: 18 CLC 62AE: 09 80 ORA #80 6308: FO OA BEQ 6314 {+0A)} 
6261: A4 1C LDY 1C 62B0: 85 1D STA 1D 630A: A5 1D LDA 1D 
6263: A6 1B LDX 1B 62B2: 4C 84 61 JUMP 6184 630C: 29 06 AND #06 
6265: 8A TXA 62B5: 28 PLP 630E: DO 07 BNE 6317 {+07} 
6266: FO 03 BEC 626B {+03} 62B6: 90 09 BCC 62C1 {+09} 6310: C6 1E DEC 1E 
6268: 20 90 71 JSR 7190 62B8: A5 1D LDA 1D 6312: 80 03 BRA 6317 {+03} 
626B: 85 19 STA 139 62BA: 29 OF AND #0F 6314: 20 EO 71 JSR 71E0 
626D: 24 1D BIT 1D 62BC: 85 1D STA 1D 6317: A5 1E LDA 1E 
626F: 30 08 BMI 6279 {+08} 62BE: 4C 84 61 JMP 6184 6319: 20 64 F8 JSR F864 
6271: C8 INY 62C1: E6 4F INC 4F 631C: A9 80 LDA #80 
6272: CO 08 CPY #08 6203: A5 TD LDA 1D 631E: 20 AG FC JSR FCA8 
6274: 30 06 BMI 627C (+06) 62C5: 29 06 AND #06 6321: 4C 50 60 UMP 6050 
6276: 4C EF 62 JMP 62EF 62C7: FO 03 BEQ 62CC {+03} 6324: EA NOP 
6279: 88 DEY 62C9: 20 92 72 JSR 7292 6325: EA NOP 
627A: 30 73 BMI 62EF {+73} 62CC: 24 1D BIT 1D 6326: EA NOP 
627C: B1 19 LDA (19),Y 62CE: 10 08 BPL 62D8 {+08} 6327: EA NOP 
627E: FO 03 BEQ 6283 (+03) 62D0: A5 1C LDA IC 6328: EA NOP 
6280: 4C 00 63 UMP 6300 62D2: FO 18 BEQ 62EC {+18) 6329: EA NOP 
6283: 18 CLC 62D4: C6 1C DEC 1C 632A: EA NOP 
6284: 08 PHP 62D6: 80 08 BRA 62E0 {+08} 632B: EA NOP 
6285: 8A TXA 62D8: A5 1C LDA 1C 632C: EA NOP 
6286: FO 14 BEQ 629C {+14} 62DA: C9 07 CMP #07 632D: EA NOP 
6288: CA . DEX 62DC: FO 0E BEQ 62EC {+0E)} 632E: EA NOP 
6289: 8A TXA 62DE: E6 1C INC 1C 632F: EA NOP 
628A: FO 03 BEQ 628F {+03) 62E0: 4C 60 62 JMP 6260 6330: AO 12 LDY #12 
628C: 20 90 71 JSR 7190 62E3: EA NOP 6332: B1 06 LDA (06),Y 
628F: 85 19 STA 19 62E4: 20 CO 72 JSR 72C0 6334: AA TAX 
6291: B1 19 LDA (19),Y 62E7: A6 FF LDX FF 6335: A9 00 LDA #00 
6293: FO 02 BEQ 6297 (+02) 62E9: 20 78 72 JSR 7278 6337: 20 00 70 JSR 7000 
6295: 38 SEC 62EC: 4C 00 63 JMP 6300 633A: 20 39 FB JSR FB39 
6296: 08 PHP 62EF\; 20 CO 72 JSR 72C0 633D: 20 58 FC JSR FC58 
6297: E8 INX 62F2: A5 1B LDA 1B 6340: 4C DO 03 JMP 03D0 
s 702A: A0 02 LDY #02 706D: A9 07 LDA #07 
Désassemblage 702C: 98 TYA 706F: 20 00 F8 JSR F800 
Récapitulation 702D: 20 19 F8 JSR F819 7072: A9 0C LDA #0C 
LASER SBR 7030: AO 02 LDY #02 7074: 20 64 F8 JSR F864 
ù 7032: A9 22 LDA #22 7077: A9 10 LDA #10 
‘ es 3 7034: 20 19 F8 JSR F819 7079: 85 2D STA 2D 
Après avoir saisi ces trois colonnes de 7037: A9 07 LDA #07 707B: AO 04 LDY #04 
codes sous moniteur, vous les sauvegarderez 7039: 85 2c STA 2C 707D: A9 OC LDA #0C 
Pa: 703B: AO 03 LDY #03 707F: 20 28 F8 JSR F828 
BSAVE LASER.SBR,A$7000, L$393 703D: A9 OA LDA #0A 7082: A9 06 LDA #06 
703F: 20 19 F8 JSR F819 7084: 85 2C STA 2C 
J d { 7042: AO 03 LDY #03 7086: AO 05 LDY #05 
7000: 8E 08 70 STX 7008 7044: A9 12 LDA #12 7088: A9 OC LDA #0C 
7003: A2 C4 LDX #C4 7046: 20 19 F8 JSR F819 708A: 20 19 F8 USR F819 
7005: AO 40 LDY #40 7049: AO 03 LDY #03 708D: A0 05 LDY #05 
7007: 20 3D C4 JSR C43D 704B: A9 1A LDA #1A 708F: A9 0E LDA #0E 
7002: 60 RTS 704D: 20 19 F8 JSR F819 7091: 20 00 F8 JSR F800 
700B: 20 40 FB JSR FB40 7050: A9 0B LDA #0B 7094: A9 01 LDA #01 
700E: 20 36 F8 JSR F836 7052: 20 64 F8 JSR F864 7096: 20 64 F8 JSR F864 
7011: A9 0D LDA #0D 7055: A9 08 LDA #08 7099: A9 17 LDA #17 
7013: 20 64 F8 JSR F864 7057: 85 2D STA 2D 709B: 85 2D STA 2D 
7016: AO 02 LDY #02 7059: A9 04 LDA #04 709D: A0 06 LDY #06 
7018: A9 21 LDA #21 705B: AO 06 LDY #06 709F: 84 2C STY 2C 
701A: 85 2D STA 2D 705D: 20 28 F8 JSR F828 70A1: A9 15 LDA #15 
701C: A9 03 LDA #03 7060: A9 05 LDA #05 70A3: 20 28 F8 USR F828 
701E: 20 28 F8 JSR F828 7062: 85 2C STA 2C 7046: AO 03 LDY #03 
7021: A0 08 LDY #08 7064: AO 04 LDY #04 70A8: A9 14 LDA #14 
7023: 84 2C STY: 2C 7066: A9 08 LDA #08 70AA: 20 19 F8 JSR F819 
7025: A9 03 LDA #03 7068: 20 19 F8 JSR F819 70AD: AO 03 LDY #03 
7027: 20 28 F8 JSR F828 706B: AO 04 LDY #04 70AF: A9 18 LDA #18 
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70B1: 20 19 F8 JSR 
70B4: AO 04 LDY 
70B6: A9 15 LDA 
70B8: 20 28 F8 JSR 
70BB: A9 0F LDA 
70BD: 20 64 F8 JSR 
70C0: A2 1C _ EDX 
70C2: 8A TXA 
70C3: AO 04 LDY 
70C5: 20 19 F8 JSR 
70C8: E8 INX 
70C9: E8 INX 
70CA: EO 21 CPX 
70CC: 30 F4 BMI 
70CE: A9 1D LDA 
70D0: AO 04 LDY 
70D2: 20 00 F8 JSR 
70D5: A9 1F LDA 
70D7: AO 06 LDY 
70D9: 20 00 F8 JSR 
70DC: A9 OD LDA 
70DE: 20 64 F8 JSR 
70E1: 38 SEC 
70E2: A9 OA LDA 
70E4: 85 FF STA 
70E6: 69 01 ADC 
70E8: 85 FC STA 
70EA: 69 02 ADC 
70EC: 85 FE STA 
70EE: 69 0E ADC 
70F0: 85 FB STA 
70F2: 69 02 ADC 
70F4: 85 FD STA 
70F6: 69 02 ADC 
70F8: 85 FA STA 
70FA: A2 03 LDX 
70FC: AO 0E LDY 
70FE: B5 F9 LDA 
7100: 85 2C STA 
7102: 85 2D STA 
7104: B5 FC LDA 
7106: 20 28 F8 JSR 
7109: 5A PHY 
710A: 98 TYA 
710B: B4 FC LDY 
710D: 20 19 F8 JSR 
7110: 7A PLY 
7111: C8 INY 
7112: C8 INY 
= 7113: CO 1D CPY 
= 7115: 30 ED BMI 
= 7117: CA DEX 
E 7118: DO E2 BNE 
711A: A9 0C LDA 
711C: 85 1E STA 
711E: 64 1D STZ 
7120: A9 DO LDA 
= 7122: 85 08 STA 
= 7124: A9 72 LDA 
mt 7126: 85 09 STA 
- 7128: 20 58 FC JSR 
. 712B: AO 00 LDY 
712D: B1 08 LDA 
712F: FO 06 BEQ 
7131: 20 ED FD JSR 
7134: C8 INY 
7135: 80 F6 BRA 
7137: 60 RTS 
" 7138: A9 00 LDA 
713A: 85 19 STA 
713C: AO 41 LDY 
2! 713E: 88 DEY 
713F: 91 19 STA 
7141: 10 FB BPL 
7143: A2 02 LDX 
7145: A5 4E LDA 


F819 
#04 
#15 
F828 
#0F 
F864 
#1C 


#04 
F819 


#21 

70C2 {-0C) 
#1D 

#04 

F800 

#1F 

#06 

F800 

#0D 

F864 


#0A 
FF 
#01 
FC 
#02 
FE 
#0E 
FB 
#02 
FD 
#02 
FA 
#03 
#0E 
F9,Xx 
LE 
2D 
FC,X 
F828 


FC,X 
F819 


#1D 
7104 (-13} 


70FC (-1E)} 
#0C 

1E 

1D 

#D0 

08 

#72 

03 

FC58 

#00 

(08),Y 
7137 {+06} 
FDED 


712D {-0A} 
#00 


19 
#41 


(2924 Y 
713E (-05} 
#02 

4E 


7147: 
7148: 
714A: 
714B: 
714C: 
714D: 
714F: 
7150: 
7151: 
7152: 
7153: 
7155: 
7156: 
7158: 
715A: 
V15B!° 
715D: 
715F: 
FLBD: 
116% 
7164: 
7165: 
7167: 
7169: 
716B: 
716C: 
716D: 
716E: 
716F: 
F1T0; 
7172: 
7173: 
7175: 
7177: 
7178: 
717A: 
717C: 
717E: 
717F: 
7180: 
7181: 
7183: 
7184: 
7185: 
7186: 
7187: 
7188: 
7189: 
718A: 
718C: 
718D: 
718F: 
7191: 
7193: 
7194: 
7196: 
7197: 
7199: 
71 9A: 
719B: 
719D: 
719F': 
71A1: 
71A3: 
71A5: 
71A7: 
71A39: 
71AB: 
71AD: 
71B0: 
71B1: 
71B3: 
71B5: 
71B7: 
71BA: 
71BC: 


07 


19 


07 


01 
19 


04 
4F 
E6 
4E 


38 
19 
4F 


07 


19 
03 


F9 


01 
19 


0E 


F8 


F8 


PHA 
AND 
ASL 
ASL 
ASL 
STA 
PLA 
LSR 
LSR 
LSR 
AND 
TAY 
LDA 
STA 
DEX 
BEQ 
LDA 
BRA 
LDA 
LSR 
LSR 
AND 
STA 
LDA 
LSR 
LSR 
LSR 
LSR 
LSR 
AND 
TAY 
LDA 
BEQ 
INY 
BRA 
LDA 
STA 
RTS 
NOP 
SEC 
SBC 
LSR 
CLC 
RTS 
NOP 
NOP 
ASL 
CLC 
ADC 
RTS 
BRK 
BRK 
LDA 
CLC 
ADC 
DEX 
BNE 
PLX 
RTS 
BRK 
BRK 
BRK 
BRK 
STZ 
LDA 
STA 
LDY 
LDA 
JSR 
INY 
CPY 
BMI 
LDA 
JSR 
LDY : 
LDA 


71BE: 
#07 Vieis 
BE 
VICE: 
7ICT: 
19 71C9: 
71CC: 
71CE : 
71D0: 
71D3: 
#07 71D5: 
71D7: 
#01 71D9: 
GPS à 71DC: 
71DD: 
7161 {+04) 71DE: 
4F 71DF: 
7147 (-1A) 71E0: 
4E 71E2: 
71E4: 
71E6: 
#38 71E9: 
19 71EA: 
4F 71EB: 
71EC: 
71ED: 
71EE : 
71EF': 
71F0: 
#07 71F2: 
71F4: 
{19),Y 71F6: 
717A (+03) 71F8: 
71FA: 
7173 (-07)} 71FC: 
#01 71FE: 
CE ALE ES 4 7200: 
7202: 
7204: 
7206: 
#0E 7209: 
720A: 
720C: 
720F: 
F212: 
7214: 
7215: 
7217: 
#0E 7219: 
721B: 
00 721D: 
DA 721E: 
#00 7220: 
7222: 
#08 7224: 
7225: 
7193 {(-06)} 7226: 
7227: 
7228: 
00 722A: 
00 V£ecr 
A9 722E: 
20 7230: 
F8 7233: 
#10 72953 
2D 72974 
FOSN 7239: 
#0C 723B: 
F828 723D: 
Fes 
#07 Feat: 
71AB {-0A)} 7243: 
lE 7246: 
F864 7248: 
#04 724A: 
#0C 724D: 


28 
06 
2C 
oc 
05 
19 
05 
10 
ml 
18 
08 
73 
26 


1B 
19 
OA 
c8 
53 
1D 
0F 
20 
07 
1B 
38 
19 
88 
53 
FE 
fai 
71 
07 


F8 


F8 


F8 


71 


71 


71 


FL 
F8 


72 


72 


F8 


JSR F828 
LDA #06 
STA 2C 

LDA #0C 
LDY #05 
JSR F819 
LDY #05 


LDA #10 
JSR F819 
LDA #18 
STA 08 

LDA #73 
JSR 7126 
RTS 

NOP 

NOP 

NOP 

LDA #60 
STA 08 

LDA #73 
JSR 7126 
RTS 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

LDA #01 
STA 30 

LDA #38 
STA 19 

LDA #07 
STA 1B 

LDY #07 
LDA (19),Y 
BEQ 7214 (+12) 
STY 1C 

LDA 1B 

JSR 7188 
TAY 

LDA 1C 

JSR 7188 
JSR F800 
LDY 1C 
DEY 

BPL 71FE {-19} 
DEC 1B 

BMI 7224 {+09} 
LDA 19 

SEC 

SBC #08 
STA 19 

BRA 71FC {-28} 
RTS 

NOP 

NOP 

NOP 

STZ 1B 

STZ 19 

LDY #0A 
LDA #C8 
STA 7253 
BIT 1D 

BPL 7246 {+0F)} 
LDY #20 
LDA #07 
STA 1B 

LDA #38 
STA 19 

LDA #88 
STA 7253 
STY FE 

LDA FF 

JSR F871 
BEQ 7256 {+07} 
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724F: 
7251: 
7293: 
7254: 
7256: 
7258: 
725B: 
725E: 
725F: 
7260: 
7262: 
7264: 
7266: 
7269: 
726B: 
726D: 
726F: 
72713 
7273! 
7275: 
7278: 
727A: 
727B: 
727E: 
7280: 
7282: 
7284: 
7285: 
7287: 
7289: 
728A: 
728D: 
7290: 
7291: 
7292: 
7294: 
7297: 
7298: 
729A: 
729D: 
729E: 
72A1: 
72A3: 
72A5: 
72A7: 
72A8: 
72AB : 
72AE : 
72B0: 
72B3: 
72B4: 
72B7: 
72B9: 
72BC: 
72BD: 
72BE : 
72BF: 
72C0: 
F4CE 
72C4: 
72C6: 
7207; 
72C8: 
72C9: 
72CB: 
20: 
72D1 : 
72D3: 
72D4 : 
72D6: 
72D9: 
72DB: 
72DD : 
72E1: 
72E4 : 
72E6 : 
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F8 
FB 


72 


72 


F8 


F8 
FB 


71 


71 


F8 


F8 
FC 


F8 


F8 


F8 


CD 


CA 


CD 
A0 


8D 


C1 


CMP 
BEQ 
INY 
BRA 
LDA 
JSR 
JSR 
RTS 
NOP 
STZ 
LDX 
LDA 
STA 
BIT 


BPL 
LDX 
LDA 
STA 
LDA 
STA 
LDY 
TXA 
JSR 
BEQ 
CMP 
BEQ 
DEX 
BRA 
STX 
TXA 
JSR 
JSR 
RTS 
NOP 
LDA 
JSR 
TAY 
LDA 
JSR 
TAX 
JSR 
STA 
LDA 
STA 
TXA 
JSR 
JSR 
LDA 
JSR 
TXA 
JSR 
LDA 
JSR 
RTS 
NOP 
NOP 
NOP 
LDA 
EOR 
STA 
RTS 
NOP 
NOP 
SBC 
LDY 
CMP 
LDY 
ASL 
LDY 
LDX 
SBC 
LDY 
CMP 
CPY 
LDY 
LDY 


#0D 
7256 {+03} 


7246 {-10} 
PE 

F800 

FBDD 


1C 
#0A 

#E8 

7284 

1D 

7278 (+0B} 
#20 

#07 

1C 

#CA 

7284 

FE 


F871 
7287 {+07} 
#0D 
7287 {+03} 


727A {-0D} 
FE 


F800 
FBDD 


1B 
7188 


1C 
7188 


F871 
1) 14 
1E 
30 


F800 
FCA8 
IF 

F864 


F800 
1E 
F864 


1D 
#80 
1D 


F5 

#CE 
8DCDD2 
#A0 


#BD 
CAAO, Y 
F5 

#CE 
C1CDD2 
A0A0 
#06 
#BD 


72E8: BE A0 CA LDX CAAO,Y 733D: BD BE A0 LDA AOBE, X 
72EB: ES F5 SBC F5 7340: C4 EF CPY EF 
72ED: AO C6 LDY #C6 7342: EE EE ES5 INC ESEE 
J2EF: C1 C3 CMP (C3,X) 7345: A0 D3 LDY #D3 
72F1: C9 CC CMP #CC 7347: CF CC D5 D4 CMP D4D5CC 
V2F37 C5 6D CMP 8D 734B: C9 CF CMP #CF 
72F5: A0 A0 LDY #A0 734D: CE A0 A0 DEC A0A0 
72F7: 04 A0 TSB A0 7350: A0 13 LDY #13 
72F9: BD BE A0 LDA AOBE,X 7352: A0 BD LDY #BD 
F2FC CCS CPYC5 7354: BE A0 D3 LDX D3A0,Y 
72FE: CD" CF EE CMP EECF 7357: D4 CF PEI CF 
7301: F3 F4 SBC (F4,S),Y 7359: DO 00 BNE 735B {+00} 
7303; F2 E1 SBC (El) 735B: 00 00 BRK 00 
7305: F4 E9 EF PEA EFE9 735D: 00 00 BRK 00 
7308: EE A0 A0 INC A0A0 735F: 00 8D BRK 8D 
730B: AO 13 LDY #13 7361: AO A0 LDY #A0 
730D: A0 BD LDY #BD 7363: CD EF E4 CMP E4EF 
730F: BE A0 D3 LDX D3A0,Y 7366: ES5 A0 SBC A0 
7312: D4 CF PEI CF 7368: EE EF EE INC EEEF 
7314: DO 00 BNE 7316 (+00) 736B: AO F3 LDY #F3 
7316: 00 00 BRK 00 736D: E5 EC SBC EC 
7318: 8D AO A0 STA A0AO 736F: E5 E3 SBC E3 
731B: OA ASL 7371: F4 E9 EF PEA EFE9 
731C: A0 BD LDY #BD 7374: EE EE E5 INC ESEE 
731E: BE A0 D2 LDX D2A0,Y 7377: 8D AO A0 STA A0A0 
7321: E5 CA SBC CA 737A: EF F5 A0 FO SBC FOAOF5 
7323: CF:D5" C5 D2 CMP D2CS5D5 737E: EC F5 F3 CPX F3F5 
7327: AO A0 LDY #A0 7381: AO E4 LDY #E4 
79329 A0%08 LDY #03 7383: E5 A0 SBC A0 
732B: AO BD LDY #BD 7385: E3 EF SBC EF,S 
732D: BE AO C3 LDX C3A0,Y 7387: F5 EC SBC EC,X 
7330: CF CE D4 C9 CMP C9D4CE 7389: ES F5 SBC F5 
7334 :0CE:D5%CS5 DEC C5D5 738B: F2 00 SBC (00) 
7337: D2 8D CMP (8D) 738D: 00 00 BRK 00 
7339: AO A0 LDY #A0 738F: 00 00 BRK 00 


733B: 04 AO TSB A0 7391: 00 00 BRK 00 


BugByter 


A. Avrane, dans le numéro 13 de Pom's, regrettait 
l'impossibilité d'imprimer depuis BugByter. Pour 
remédier à cet état de chose, voici un petit patch et la 
procédure de mise en place : 


Booter sur la disquette Master DOS 3.3 

CALI OS 

BLOAD BUGBYTER, AS$1000 

1729:4C 00 EA 

1679:4C 20 EA EA 

2A00: C9 9B DO 03 4C F8 D6 C9 D7 DO 06 8D EA 4C 
2D D7 C9 C5 D0 05 A9 00 8D 1D EA 00 00 
EA A9 80 2C 1D EA 10 3B AE AC E7 CA BD E9 8D 
4B EA BD 28 E9 8D 4C EA AC B7 E7 A9 50 8D 79 06 
A9 00 8D F9 05 85 36 A9 C1 85 37 B9 28 7F 
C9 20 B0 02 09 40 20 00 C1 C8 CO 27 DO ED A9 O0D 
20 00 C1 68 8D 98 E7 4C 7D D6 00 

BSAVE BUGBYTER, AS$1000, L$1A69 (sur une copie !) 


En mode SINGLE STEP, l'appui sur W(rite) 
démarre l'impression et l'appui sur E(nd) l'arrête. 
Une fois la commande W donnée, on peut passer en 
mode Trace si on le désire. 


Michel Duroc, 97220 Trinité 
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C.L.M. & BBDO. 


On trouve plus facilement 
avec |0 ans 


Certaines évolutions sont aussi 
importantes que des révolutions. 


Le plus difficile quand on débute, 
c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple IIGs, il 
débute avec 10 ans d'expérience. 

Comment ? C’est très simple, 

il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 

un Apple Il classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple Il. L'Apple HGs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c’est-à-dire lorsque vous utilisez un 


programme de votre ancien Apple Il) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 


Débuter connu, c’est 16.000 propositions 
d'emploi. 

Avec l'IWM (Integrated Woz 
Machine*) l'Apple IIGs peut recevoir 
indifféremment des lecteurs de 





. disquettes 3,5 pouces 800 Ko ou des 


lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu'un Apple IIGS soit 
incapable de calculer, c’est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProDOS, l'Apple IIS 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 


* En hommage à Steve Wozniak, co fondateur de la Société 
Apple et créateur de l'Apple IL. 
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un emploi quand on débute 


‘expérience. 















ils Couleur Font Anime 
= : 


Macintosh, et la connexion de 
nouveaux périphériques. 


ts, cela veut dire Graphique et son. 


L'imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 4096 nuances de couleurs 
disponibles ? C est probable. Ce qui est 
certain, c’est qu’une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n’en croyez pas VOS yeUX, VOUS n'en 
croirez pas vos oreilles non plus. Le 
coprocesseur “son” choisi par 
Apple a déjà une brillante carrière 
derrière lui puisqu'il est employé par 
les plus grands synthétiseurs du 
marché. C’est l'ENSONIQ, capable de 
générer 16 voix, 


Apple présente l'Apple Iles. 


et il ne lui manque même pas la parole. 


Les relations nécessaires pour réussir. 


En 10 années, l'Apple II a eu tout 
Le loisir de se faire d'excellentes relations 
detravail, imprimante, modem, disque 
dur, que l'Apple IIGs continuera à 
entretenir et développer ; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la LaserWriter 
réservée jusqu'à présent à Macintosh. Il 
peut aussi recevoir le disque dur SCSI. 

L'Applelcs possède 7 connecteurs 
d'extension permettant, à l’aide d’une 
multitude de cartes d’interfaces, de le 


relier à tous les types d'unités périphériques. 


Acheter un Apple, c’est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 


BRUNE RE 





0 Apple, Apple 116$, ProDOS, Macintosh, Apple Talk, LaserWriter et GS Paint sont des marques déposées par Apple Computer Inc. 








À la rédaction de Pom's, les 
pauses — rares et studieuses (1) 
— sont souvent consacrées à la 
cinématique des sphères, 
entendez le billard sur Macintosh. 
L'objet de notre passion est le 
Billard Parlour, freeware de 
Crandall, Gillespie et Lew mis à 
votre disposition sur la disquette 
‘Mac I’. La qualité de ce 
programme nous incite à vous le 
présenter plus en détail. 


Présentation 


La copie d'écran ci-contre illustre 
la qualité de la présentation de ce 
jeu bien réaliste. Disposé au 
centre de l'écran, le tapis vert, 
au-dessus, le compteur de points 
et en haut, le boulier. 


À l'aide de la souris, on fait 
apparaître la queue de billard et 
on lui donne l'angle voulu ; la 
force de l'impact est déterminée 
par la position de la souris. Tout 
cela est très instinctif. Il ne faut 
pas taper trop violemment : outre 
que le réalisme en souffre, les 
billes pourraient passer les unes 
au travers des autres sans que le 
programme ne gère un choc. 


Comme bien des freewares, le 
mode d'emploi et le programme 
sont en anglais, mais ce jeu est si 
connu que cela ne devrait pas 
constituer un obstacle. 


Les possibilités 


Outre le jeu standard, il est 
possible de positionner les billes 
comme on le souhaite pour 
étudier un coup. 


L'effet donné à la bille est maté- 
rialisé par un point sur un disque, 
point à positionner avant de 
jouer. À défaut, ce point est au 
zéro théorique, c'est-à-dire sans 
effet : le ‘rétro’ s'obtient en tapant 
plutôt au bas de la bille. De la 
même manière, on peut doser 
l'effet latéral. 


Un bruit de collision qui rappelle 
fidèlement celui de l'ivoire est 
généré à chaque impact ; on peut 
le supprimer. 

Le compteur évite toute ambiguïté 
sur l'obtention des points mais, 


Freew sé 





Un billard à l'essai 


en billard français, il ne 
fonctionne qu'en ‘trois bandes’. 


Possibilités qui n'existent pas 
dans les traditionnelles salles de 
billard : annuler et reprendre un 
coup, mais également rejouer un 
coup pour en contrôler les 
trajectoires ; un menu en propose 
le tracé. 


Les billards 


Ce programme est complet : il 
propose le jeu : 


+ avec les 3 billes du billard 

français ; 

avec 9 ou 15 billes numérotées 

(à jouer dans l'ordre) ; 

+ avec 15 billes numérotées et 6 
non numérotées : 

+ avec 3, 6, 9, 10 ou 15 billes 
non numérotées. 

+ Lag, qui est un exercice de tir 
de précision. 


Une loupe est disponible pour 
contrôler les numéros des billes 


é File Edit Game Rack Options Magnify Help 


2 lard Parlour 





numérotées mais ils sont en fait 
lisibles. 


Le programme 


Écrit en Rascal (2), il ne laisse 
pas de place au hasard : les 
coordonnées, les vitesses, 
l'analyse des collisions compte 
tenu de l'effet donné et les 
trajectoires font l'objet de calculs 
mathématiques (toujours sur des 
entiers 16 bits pour une question 
de rapidité). Le help donne, en 
anglais, des informations sur la 
méthode de calcul des collisions. 
L'affichage des billes est réalisé à 
l'aide de deux images pour 
donner une impression de 
rotation, mais il est un peu lent 
lorsque 21 billes sont sur le tapis. 


(1) Précisions à l'attention du Rédacteur 
en Chef. 

(2 Rascal de Metaresearh Inc. 1100 SE 
Woodward, Portland, OR 97202 


États-Unis. « 
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Philippe Mathieu 


Nous supposerons dans cet article que le lecteur connaît déjà 
ThinkTank ou, pour le moins, les principes de fonctionnement des 
programmes de gestion d'idées dont ThinkTank a été le premier et 
brillant exemple. 


Point fort : More et le Macintosh 


More, digne successeur de ThinkTank, possède par rapport à son 
prédécesseur un fonctionnement plus "Macintosh", notamment 
grâce à son utilisation des ascenseurs. Il possède aussi une plus 
grande souplesse dans la réorganisation, à l'aide de la souris, de la 
hiérarchie des idées. Remarquons enfin la possibilité d'ouvrir 
simultanément plusieurs fenêtres et de Copier/Coller entre elles. 


Point fort : présentation variée des documents 


Outre les classiques liste et table des matières, More propose un 
dessin des titres et sous-titres sous la forme d'un organigramme, 
ainsi que la "projection" de planches et tableaux pour les 
conférences ou toute utilisation similaire. 

Ces tableaux peuvent défiler, soit à intervalles réguliers, soit à la 
commande. Un défilement rapide permet de créer une sorte 
d'animation. Il est très aisée de coller dans More des dessins et 
graphiques créés par d'autres programmes, par exemple MacPaint 
ou MacDraw, et aussi par lui-même (organigramme collé comme 
dessin). Par ailleurs, More dispose de nombreuses options de 
polices caractères, styles, cadres et même de l'impression en 
couleurs sur l'ImageWriter II. 


Point fort : grande puissance d'organisation 


+ possibilité de créer des "clones", des doubles d'une sélection qui 
seront modifiés si l'on modifie l'original (et inversement) ; 

+ "marquage", en liaison avec la recherche automatique, permettant 
de regrouper des titres ayant un certain contenu ; 

+ création et utilisation de modèles (gabarits) réutilisables dans 
divers fichiers. 


Point fort : autres fonctionnalités utiles 


More possède de larges facilités d'échange avec d'autres logiciels : 

+ accueil de documents provenant d'autres logiciels, y compris 
lui-même, avec possibilité d'insertion de ces documents dans le 
document courant ; 

+ envoi de documents vers d'autres logiciels ; 

+ gestion intéressante du temps : calendrier, dates, heures. 


Le numérotage téléphonique automatique est possible, pour peu 
qu'on utilise un modem autorisant ce type d'opération. 


Inconvénient : impression 


Il est impossible de placer volontairement des sauts de page à 
l'impression, de sorte que les coupures se produisent de façon 
systématique quand la page est pleine (c'est-à-dire généralement au 
mauvais endroit). 


Inconvénient : fenêtres de texte 


Le traitement de texte reste assez rudimentaire. On ne peut par 
exemple pas changer les caractères, la taille ou le style d'un mot ou 
d'un groupe de mots à l'intérieur d'une même fenêtre. 
Heuresement, c'est possible d'une fenêtre à l'autre. On ne peut pas 
non plus voir à l'écran ce que sera l'apparence d'un texte après 
justification, celle-ci n'intervenant que lors de l'impression. Par 
ailleurs, les fenêtres de texte ne peuvent être ouvertes qu'une à une, 
après avoir sélectionné les sous-titres correspondants, ce qui est 
particulièrement fastidieux. 


Quelques "gadgets" superflus 


On peut se demander par ailleurs si certains gadgets, qui 
compliquent inutilement le maniement du logiciel, n'auraient pas pu 
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STRUCTUREXPERT 


La solution pour programmer de manière 
structurée en MSBASIC TM et ZBASIC M. 
STRUCTUREXPERT M vous permet de 
disposer d'un ensemble d'analyses 
qui peuvent être visualisées (fenêtres 
"scrollables"), sauvées séparément sur 
fichiers, ou imprimées 
. Arborescence complète (descendante 
et ascendante) des appels GOSUB et 
CALL. 
. Listes triées sur plusieurs types de 
critères des GOSUB et des CALL. 
. Statistiques : fréquence d'appel de 
chaque routine. 
. Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 


STRUCTUREXPERT 495 F TTC + 20F de port 

Paiements par CB ou chèques adressés à 

Q.S.I. 149, rue OBERKAMPF 75011 PARIS 
tel : (16)142493795 





être supprimés : 

+ trois modes de divisions en fenêtres ; on ne voit pas à quoi sert la 
division en diagonale ; 

+_trop souvent, trois méthodes pour obtenir le même résultat ; par 
exemple, pour la commande Etendre, qui peut être mise en 
œuvre par un menu déroulant, un clic ou une commande clavier. 

Bien que mise en relief par l'auteur du programme, la possibilité 

d'associer des valeurs à des sous-titres et de les additioner 

automatiquement en remontant la hiérarchie des titres ne semble pas 

passionnante. 


Attention, danger : les annulations 


Il n'exite pas de commande d'annulation de l'opération précédente, 
comme c'est le cas maintenant dans pratiquement tous les 
programmes Macintosh. C'est une lacune. 


Conclusion 


More est un produit original et puissant, mais il serait bien agréable 
d'avoir rapidement une version More 2.1 dans laquelle la plupart 
des problèmes que nous avons indiqués ci-dessous seraient 


résolus. 
G 


Pom’s recherche  pourles 
mois de juillet et /ou août un ou deux 
stagiaires. Bonne maîtrise du 
Macintosh, du français et de 


l'orthographe requise. 

Envoyez votre CV à Hervé Thiriez, 
Editions MEV, 12, rue d'Anjou 78000 
Versailles avant le 15 juin. 
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“TPom'’s”, qui répond à une 
importante demande, autorise la 
récupération de l'annuaire électro- 
nique sous la forme d'un fichier 
‘texte’ directement exploitable. 
Ce programme permet aussi, 
accessoirement, le traitement de 
fichiers créés à partir du 
programme “Minitel” (Pom’s 
numéro 27). Il s'agit d'une 
application autonome écrite en 
assembleur MDS 68000, 
fonctionnant sur tous les 
Macintosh et ce quel que soit 
l'environnement. Comme pour 
les programmes “Minitel” et 
“InterPom’s” (Pom’s numéro 28) 
un câble-interface Minitel/ 
Macintosh est requis ; si vous ne 
l'avez pas déjà, vous pouvez le 
fabriquer en vous aidant des 
schémas publiés dans les 
numéros 27 ou 28 de Pom’s ou, 
si vos dons ou votre temps ne 
vous le permettent pas, on peut 
aussi commander cette liaison 
indispensable directement à la 
revue. Pour cela, vous trouverez 
un bon de commande page 75. 


Utilisation 
de TPom’s 


Le programme utilise quatre 
menus déroulants ; voici le 
premier : 





[A TA LIL: 
[ext] eau x0 
Te Nouv ds 


Fermer Xf 










Nouveau. 


L 


L'article ‘Nouveau...’ de ce 


menu sera employé pour choisir 


Jean-Luc Bazanegque 





le nom du fichier destiné à 
recevoir les informations émises 
par TPom'’s. Les fichiers ainsi 
créés portent le type ‘texte seul’ 
MacWrite/DiskWrite (TEXT 
MACA), donc ‘double 
cliquables’ et exploitables avec 
n'importe quel logiciel capable de 
traiter ce format. Une fois le 
choix du nom effectué, il 
s'affiche dans la barre de titre de 
la fenêtre. Si le programme ne 
trouve pas de fichier ouvert, la 
barre de titre contient la mention 
‘Pas de fichier ouvert’. 
L'‘équivalent clavier’ de cet 
article est ‘Commande-O”. 


Fermer 


Nous trouvons l'article ‘Fermer’ 
valide dans deux cas : 


° un accessoire de bureau est 
affiché et actif. Dans ce cas, 
une action sur cet article — ou 
son équivalent clavier 
‘Commande-F’ ferme l'acces- 
soire en question ; 

* un fichier est ouvert. Le 
traitement consiste alors en la 
fermeture du fichier courant, le 
remplacement du nom de 
fichier dans la barre de titre par 
la mention ‘Pas de fichier 
ouvert’, et le changement de la 
forme du curseur. 


En effet, comme le programme 
peut fonctionner ‘à vide’ et afin 
de bien marquer l'ouverture — ou 
la non-ouverture d'un fichier, les 
curseurs ont des formes 
différentes selon les cas : 


* curseur en forme de roue si un 
fichier est ouvert (identique à 
celui employé pour l'accessoire 
de cryptage “Kruptos” du 
précédent numéro de Pom's) ; 

* curseur en forme de ‘sens 
interdit’ si il n'y a pas de 
fichier ouvert. 


Un éventuel fichier ouvert sera 


TPom s : 


Minitel, Macintosh ex Le 11 


aussi fermé si : 


+ le choix d'un autre fichier est 
effectué ; 

+ l'utilisateur quitte le pre 
gramme. 


Numéros 


Si l'on veut se constituer um 
fichier d'adresses, on souhaitera 
conserver les numéros de 
téléphone. Cependant, les 
numéros de téléphones sont 
parfaitement inutiles lorsqu'il 
s'agit de faire un ‘mailing’. 
TPom’s permet donc, grâce à 
l'article ‘Numéros’, de choisir le 
format de stockage : avec ou sans 
numéros. 


Dans le cas d'un stockage sans 
numéro, le format du fichier 
comprend quatre zones séparées 
par un ‘retour-Chariot’ : 

1 Nom 

2 Prénom 

3 Adresse 

4 Ville 


Pour un stockage avec numéros, 
le format comprend cinq zones : 


1 Nom 

2 Prénom 

3 Adresse 

4 Ville 

5 Numéro de téléphone 


Afin de faciliter le traitement du 
fichier d'adresses par un éventuel 
autre programme, chaque ‘fiche’ 
est précédée par une ‘puce’ (e), et 
ce quel que soit le format utilisé 
(avec ou sans numéros), ce qui 
nous donne par exemple, sans 
numéros : 


Electricité de France-Gaz de 
France (E.D.F-G.D.F) 


46 bd St Antoine 
LE CHESNAY 


Electricité de France Gaz de 
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France 


7 bd Jean Jaurès 
HOUILLES 


Société Agricole d'Electricité 
de la Région d'Orgerus 


33 r Gare 
TACOIGNIERES 


et, avec nuMmÉTOS : 
Electricité de France-Gaz de 
France (E.D.F-G.D.F) 


46 bd St Antoine 
LE CHESNAY 
(1) 39 54 90 10 


. 
Electricité de France Gaz de 
France 


7 bd Jean Jaurès 
HOUILLES 
(1) -39 13 24 45 


Société Agricole d'Electricité 
de la Région d'Orgerus 


33 r Gare 
TACOIGNIERES 
11) 34187022 17 


Lorsque l'option ‘avec numéros” 
est valide, l'article correspondant 
apparaît coché et, pendant le 
traitement, les numéros de 
téléphone s'affichent à l'écran. 
Par défaut, les numéros ne sont 
pas conservés. Notons enfin que, 
comme il est possible de changer 
de format à tout instant, un même 
fichier peut contenir des ‘fiches’ 
avec et sans numéros de 
téléphone. 









Edition 
Annuler %Zz 
Couper %# 
Copier %C 
Coller &U 


Effacer 







TPom’s n'a pas recours au 
‘Couper/Copier/Coller’ ; le menu 
édition n'est donc là que pour 
répondre aux exigences — 
légitimes — du ‘User Interface 
Guideline”, et ne deviendra valide 
qu'en présence d'un accessoire 
de bureau actif. 
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EEE 


Source 


Fichier ‘Pom's 27’. 


Minitel 










Fichier ‘Pom’s 27°... 


.… Sera utilisé si l'on désire traiter 
un fichier créé par le programme 
du numéro 27 de Pom’s. La 
fenêtre standard de sélection 
s'affiche, ne laissant apparaître 
que les noms des fichiers cités 
plus haut. Une fois la sélection 
faite, TPom'’s fait rapidement son 
travail, ne ‘rendant la main’ qu'à 
l'achèvement de la tâche. 


Minitel 


Dans ce cas, les informations 
traitées proviennent du Minitel, 
via l'interface série ‘communica- 
tion’ du Macintosh. Ce sera 
certainement la manière la plus 
courante d'employer TPom's ; 
c'est pourquoi elle est celle valide 
par défaut. 


Quitter 


Ent nt 
vers le ‘Finder’ %Q 


vers une application %A 


TPom'’s offre deux façon de 
sortir du programme : 


° en provoquant un retour au 
‘Finder’ (méthode courante) ; 

* en proposant l'appel direct de 
l'application de votre choix. Il 
n'est pas nécessaire que 
l'application à appeler soit sur 
un volume ‘en ligne’. 





Il est possible d'utiliser les 
équivalents claviers Comman- 
de-Q et Commande-A. 


Problèmes 
possibles 


Prise en compte 
des informations 


TPom’s ne prend en compte les 
informations issues du Minitel — 
ou puisées dans un fichier 







‘Pom’s 27° — que lorsqu'il reçoit 
le premier nom de ville. 
Autrement dit, si vous lancez 
TPom’s pendant que vous 
consultez, par exemple, la liste 
des plombiers de Paris, il n'y a 
aucune chance pour que le nom 
de la ville change, et notre 
programme ne va rien retenir. 
Pour éviter ce genre de situation, 
il est préférable de faire démarrer 
TPom'’s avant de commencer la 
consultation de l'annuaire 
électronique. Une autre méthode 
permet de se sortir d'embarras : 
appuyer sur la touche répétition, 
ce qui oblige le serveur des PTT à 
réémettre, entre autre, le nom de 
la ville, déclenchant ainsi la prise 
en compte des informations. 


Informations erronées 


L'annuaire électronique ne 
propose pas de zones fixes — sauf 
pour le numéro de téléphone -— 
dans lesquelles TPom’s aurait pu 
puiser. Notre programme fait 
donc de son mieux en analysant 
la multitude de codes qui lui 
parviennent. Dans ces conditions, 
il peut arriver (en fait, il arrive !) 
que certaines informations 
stockées dans le fichier texte soit 
erronées. De ce fait, un petit coup 
d'œil dans le fichier avec un 
logiciel de traitement de texte peut 
s'avérer utile. 


Zones 


Bien qu'étant affichés dans la 
fenêtre pendant le traitement, les 
départements ne sont pas 
enregistrés, ceux-ci ne présentant 
pas d'intérêt. 


L'annuaire électronique n'indi- 
quant pas le code postal, il sera 
nécessaire, pour un ‘mailing’ par 
exemple, de faire un remplace- 
ment systématique VILLE — 
CODE POSTAL / VILLE. 


Mauvaise connexion 


Le programme aura des 
difficultés à fonctionner si le 
câble de liaison est mal — ou pas — 
connecté. Afin d'éviter cela, le 
programme utilise des curseurs 



















qui doivent s'animer à la ES fichier PIT 
réception du moindre caractère. D cn eue 
Din ps le Css une Prénom : comédiens des PTT 


Sare : : 4 
vérification de la ‘connectique Adresse : 181 av Choisy 13e 
s Impose. Ville : PARIS 

Œ: Département : PARIS 


Numéro : (1) 47 07 57 42 





Sources et fichiers du programme “T_Pom's” 
* le symbole ‘f indique la continuité d'une ligne. 





DU JAMES MN IUT 20 #6 Zero EQU 0 Menus 
Fichier ‘T_Pom's.Job” Un EQU 1 SUBQ.L  #Quatre, SP 
Deux EQU 2 MOVE #MenuPomme,-(SP) 
ASM TPom's.Asm Exec Edit Trois EQU 3 _GetRMenu 
LINK T_Pom's.Link Exec Edit Quatre EQU 4 MOVE.L  (SP),HandleMPomme(A5) 
RMAKER T_Pom's.R Finder Edit MOVE.L  HandleMPomme(As5),-(SP) 
Debut CLR -(SP) 
BSRS Initialisations _InsertMenu 
——————————— BSR Menus MOVE.L  #'DRVR',-(SP) 
Fichier ‘T Pom's.Link’ BSR OuvreSerie _AddResMenu 
A BSR OuvertureF SUBQ.L #Quatre SP 
] BRA Evenements MOVE #MenuFichier,-(SP) 
_GetRMenu 
T Pom's Initialisations MOVE.L (SP), HandleMFichier(A5) 
/Output T_Pom's.Code PEA -4(A5) CLR -(SP) 
/Type TEMP' _InitGraf _InsertMenu 
_InitFonts SUBQ.L #Quatre, SP 
$ MOVE.L  #S0000FFFF,DO MOVE #MenuEFdition,-(SP) 
_FlushEvents _GetRMenu 
_InitWindows MOVE.L (SP), HandleMEdition(A5) 
UE RS _InitMenus CLR -(SP) 
Source ‘T_Pom's.Asm’ CLR.L -(SP) _InsertMenu 
_InitDialogs SUBQ.L #Quatre,SP 
INCLUDE T_Pom's/1.Asm _TElnit MOVE #MenuSource,-(SP) 
INCLUDE T_Pom's/2.Asm PEA Curseurlbis _GetRMenu 
INCLUDE T_Pom's/3.Asm _SetCursor MOVE.L (SP),HandleMSource(A5) 
INCLUDE T_Pom's/4.Asm CLR -(SP 
END F dr SUBQ.L #4,5P _InsertMenu 
_TickCount SUBQ.L  #Quatre SP 
Perl Re MOVE.L tn RAS MOVE #MenuSortie,-(SP) 
ompteurTiming _GetRMenu 
Source ‘T_Pom's/1.Asm’ MOVE  #1,Numero_Curseur(A5) MOVEL (SP) HandleMSortie(A5) 
SF DrMenuFichier(A5) CLR (SP) 
INCLUDE FSEqu.Txt ST DrMinitel(A5) _InsertMenu 
INCLUDE  Traps.Txt ST DrCom1(A5) @1 MOVEL HandleMEdition(A5) 
INCLUDE SysEqu.D ST DrLPT1Valide(A5) -(SP) 
INCLUDE ToolEqu.D SF DrNumero(A5) CLR -(SP) 
INCLUDE QuickEqu.D SF DrDepart(A5) _Disableltem 
INCLUDE PackMacs.Txt - SF DrCouleur(A5) _DrawMenuBar 
SE DrNumero_en_cours(A5) RTS 
MenuPomme  EQU 1 SF DrLigne(A5) 
mAPropos EQU 1 SF DrColonne(A5) Evenements 
MenuFichier  EQU 2 SF DrRepere(A5) _SystemTask 
mNouveau EQU 1 SF DrAttente_Affichage_| BSR TesteEntree 
mFermer EQU 3 Ville(A5) BEQ.S @1 
mNumero EQU 5 SF Dr_Attente_Ville(A5) BSR Niveau0 
MenuEdition  EQU 3 SF Dr_Attente_{ BRAS Evenements 
mAnnuler EQU 1 Departement(A5) @1 SUBQL  #2,SP 
mCouper EQU 3 SF Dr_Attente_Prenom(A5) MOVE  #S$0FFF,-(SP) 
mCopier EQU 4 SF Dr_Attente_| PEA EnregEvents(A5) 
mColler EQU 5 Nom_Suite(A5) _GetNextEvent 
mEffacer EQU 7 SF Dr_Attente_Adresse(A5) TST (SP}+ 
MenuSource EQU 4 SF DrAffichage(A5) BEQS Evenements 
mPoms27 EQU 1 SF Copie_Affichage(A5) BSR.S Traitementevents 
mMinitel EQU 2 SF Copie_Affichage+128(A5) BEQ.S Evenements 
SF Copie_Affichage+256(A5) RTS 
MenuSortie EQU 5 SF Copie_Affichage+384(A5) 
mQuitter EQU 1 SF Copie_Affichage+448(A5) Traitementevents 
mApplication EQU 2 SF Copie_Affichage+512(A5) MOVE EnregEvents+| 
BSR Zero_Chaines_ Nom evtNum(A5),D0 
DialogAPropos EQU 1 MOVE #DILoad,-(SP) ADD D0,D0 
DialogBis EQU 501 _Pack2 MOVE TableEvenements(D0),D0 
bOK EQU 1 RTS JMP TableEvenements(D0) 
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TableEvenements 

Eventsuivant-[ 
TableEvenements 
Souris-TableEvenements 
Eventsuivant-| 
TableEvenements 
Touche-TableEvenements 
Eventsuivant-| 
TableEvenements 
Touche-TableEvenements 
MiseJour-TableEvenements 
Disquette-[ 
TableEvenements 
Active-TableEvenements 
Eventsuivant-| 
TableEvenements 
Eventsuivant-| 
TableEvenements 
Eventsuivant-| 
TableEvenements 
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Eventsuivant 
MOVEQ #Zero,D0 


#Deux,SP 
EnregEvents+] 
evtMouse(A5),-(SP) 
PEA EnregEvents+evtMeta+| 
Deux(A5) 
_FindWindow 
MOVE (SP)+,D0 
ADD D0,D0 
MOVE TableFenetre(DO0),D0 
MP TableFenetre(DO0) 
TableFenetre 
DC Eventsuivant-TableFenetre 
DC BarMenu-TableFenetre 
DC fenetreSys-TableFenetre 
DC Contenu-TableFenetre 
DC DeplaceFen-TableFenetre 
DC Contenu-TableFenetre 
DC Eventsuivant-TableFenetre 


BarMenu 

SUBQ.L #Quatre,SP 

MOVE.L EnregEvents+| 

evtMouse(A5),-(SP) 

_MenuSelect 

MOVE (SP)+,D1 

MOVE (SP)+,D0 
BarMenuC 

ADD D1,D1 

MOVE TableMenus(D1),D1 

JMP TableMenus(D1) 
TableMenus 

DC Eventsuivant-TableMenus 

DC TraitPomme-TableMenus 

DC TraitFichier-TableMenus 

DC TraitEdition-TableMenus 

DC TraitSource-TableMenus 

DC TraitSortie-TableMenus 
FinMenu 

CLR -(SP) 

_HiliteMenu 

BRAS Eventsuivant 
TraitFichier 

ADD D0,D0 

MOVE TableFichier(DO),DO 

JMP TableFichier(DO) 
TableFichier 


DE FinMenu-TableFichier 
DC TmNouveau-TableFichier 
DC FinMenu-TableFichier 
DC TmFermer-TableFichier 
DC FinMenu-TableFichier 
DC TmNumero-TableFichier 





Touche 
BTST #CmdKey,EnregEvents+] 
evtMeta(A5) 
BNE.S Commande 
BRA Eventsuivant 
Commande 
CLR.L -(SP) 
MOVE EnregEvents+evtMessa ge+[ 
Deux(A5),-(SP) 
MenuKey 
MOVE (SP)+,D1 
MOVE (SP)+,D0 
BRA BarMenuC 
MiseJour 
BSR SPMiseJour 
BRA Eventsuivant 
SPMiseJour 
MOVEA.L EnregEvents+| 
evtMessage(A5),A4 
MOVE.L  A4,-(SP) 
MOVE.L  (SP),-(SP) 
_BeginUpdate 
_SetPort 
BSR AfficheTitre 
BSR MiseJourZones 
MOVE.L  A4,-(SP) 
_EndUpdate 
RTS 
Disquette 
BRA Eventsuivant 
Active 
MOVEA.L EnregEvents+] 
evtMessage(A5),A4 
CMPI #userKind,f 
windowKind(A4) 
BNE Eventsuivant 
MOVE EnregEvents+| 
evtMeta(A5),D7 
BTST #ActiveFlag,D7 
BEQ.S DeActiver 
MOVE.L  A4,-(SP) 
_SetPort 
BSR ChangeCurseur 
DeActiver 
BSR ValideMenus 
BRA Eventsuivant 
fenetreSys 
PEA EnregEvents(A5) 
MOVE.L  EnregEvents+evtMeta+| 
Deux(A5),-(SP) 
_SystemClick 
BRA Eventsuivant 
DeplaceFen 
MOVE EnregEvents+| 
evtMeta(A5),D0 
ANDI #2048+256,D0 
CMPI #2048+256,D0 
BNE.S @1 
SUBQ.L #Quatre, SP 
_FrontWindow 
MOVE.L  (SP)+,D3 
MOVE.L  PointeurFenetre(A5),-(SP) 
LEA RectFenetre,A3 
MOVE.L  (A3),-(SP) 
CMP.L PointeurFenetre(A5),D3 
SEQ -(SP) 
_MoveWindow 
BRA Eventsuivant 
@1 MOVEL  EnregEvents+evtMeta+] 
Deux(A5),A4 
MOVE.L  A4,-(SP) 





MOVE.L 


EnregEvents+] 
evtMouse(A5),-(SP) 


PEA Rectanglelimite 
_DragWindow 
@2 BRA Eventsuivant 
Contenu 
SUBQ.L  #Quatre, SP 
_FrontWindow 
MOVE.L  (SP)+,D0 
MOVEA.L EnregEvents+evtMeta+| 
Deux(A5),A4 
CMP.L A4,D0 
BEQ.S @1 
MOVE.L  A4,-(SP) 
_SelectWindow 
BRA.S @2 
@1 MOVE.L  A4,-(SP) 
_SetPort 
PEA EnregEvents+| 
EvtMouse(A5) 
_GlobalToLocal 
SUBQ.L  #Deux SP 
MOVE.L  EnregEvents+| 
EvtMouse(A5),-(SP) 
MOVE.L  A4,-(SP) 
PEA HandleControle(A5) 
_FindControl 
TSF (SP)+ 
BEQ.S @2 
SUBQ.L  #Deux,SP 
MOVE.L  HandleControle(A5),-(SP) 
MOVE.L EnregEvents+| 
EvtMouse(A5),-(SP) 
CLR.L -(SP) 
_TrackControl 
TST (SP)+ 
BEQ.S @2 
SUBQ.L #Quatre,SP 
MOVE.L  HandleControle(A5),-(SP) 
_GetCRefCon 
BSR Boutons 
@2 BRA Eventsuivant 
TraitPomme 
CMPI #mAPropos,DO 
BEQ.S TraiteAPropos 
MOVE.L  HandleMPomme(A5),-(SP) 
MOVE DO,-(SP) 
PEA NomAccessoire(A5) 
Getltem 
SUBQ.L  #Deux,SP 
PEA NomAccessoire(A5) 
_OpenDeskAcc 
ADDQ #Deux, SP 
BRA FinMenu 
TraiteAPropos 
CLR.L -(SP) 
MOVE #DialogAPropos,-(SP) 
PEA Dialogue(A5) 
MOVEL  #-1,-(SP) 
_GetNewDialog 
MOVE.L  (SP),-(SP) 
_SetPort 
Attente 
CLR.L -(SP) 
PEA Article(A5) 
_ModalDialog 
_CloseDialog 
SUBQ.L #Quatre, SP 
_FrontWindow 
MOVE.L  (SP)+,A4 
CMPI #userKind,[ 
windowKind(A4) 
BNE.S @1 
MOVEL  A4,-(SP) 
MOVE.L  (SP),-(SP) 
_SelectWindow 
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_SetPort 
@1 BRA FinMenu 
TraitEdition 
BSR.S VersSysteme 
BRA FinMenu 
VersSysteme 
MOVE D0,D7 
CLR -(SP) 
MOVE D0,-(SP) 
SUBQ #Un,(SP) 
_SysEdit 
MOVE.B  (SP)+,D1 
RTS 
TmNouveau 
MOVE.L  #$640064,-(SP) 
PEA Prompt 
PEA NomDefaut 
CLR.L -(SP) 
PEA ReponseGetFile] 
Destination(A5) 
MOVE #SFPutFile,-(SP) 
_Pack3 
TST ReponseGetFile] 
Destination+rGood(A5) 
BEQ FinMenu 
TST.B DrMenuFichier(A5) 
BEQ.S @1 
LEA TamponlO| 
Destination(A5),A0 
_Close 
BSR InfoFichier 
@1 LEA TamponlO| 
Destination(A5),A0 
LEA ReponseGetFileDest/ 
ination+rName(A5),A1 
MOVE.L  Al,ioFileName(AO) 
MOVE  ReponseGetFileDest/ 
ination+rVolume(A5),/ 
ioVRefNum(A0) 
Create 
BEQS @2 
CMPI #-48,D0 
BEQ.S @2 
@3 CMPI #-33,D0 
BNE.S @4 
MOVE #2,-(SP) 
BSR Erreur 
BRAS @5 
@4 CMPI #-34,D0 
BNE.S @6 
MOVE #3,-(SP) 
BSR Erreur 
BRA.S @5 
@6 MOVE #1,-(SP) 
BSR Erreur 
@5 MOVEL  PointeurFenetre(A5),-(SP) 
PEA Titre 
_SetWTitle 
MOVE.L  HandleMFichier(A5),[ 
-(SP) 
MOVE #mFermer,-(SP) 
_Disableltem 
SF DrMenuFichier(A5) 
BSR ChangeCurseur 
BRA FinMenu 
@2 LEA TamponlO/ 
Destination(A5),A0 
LEA ReponseGetFileDest| 
ination+rName(A5),A1 
MOVE.L  Al,ioFileName(AO) 
CLR.L ioOwnBuf(A0) 
MOVE.B  #fsWrPerm,ioPermssn(A0) 
MOVE ReponseGetFile 
Destination+rVolume 
(A5),ioVRefNum(A0) 
_Open 


BNE.S @3 
MOVE.L  PointeurFenetre(A5),-(SP) 
PEA ReponseGetFileDest/ 
ination+rName(A5) 
_SetWTitle 
MOVEQ #0,D0 
MOVE.B  ReponseGetFileDest| 
ination+rName(A5),D0 
ADDQ #1,D0 
LEA ReponseGetFileDest| 
ination+rName(A5),A0 
LEA NomFichier(A5),A1 
_BlockMove 
MOVE ReponseGetFile| 
Destination+r Volume 
(A5),Volume(A5) 
ST DrMenuFichier(A5) 
BSR ChangeCurseur 
MOVE.L  HandleMFichier(A5),f 
-(SP) 
MOVE #mFermer,-(SP) 
_Enableltem 
BRA FinMenu 
TmFermer 
SUBQ.L #Quatre, SP 
_FrontWindow 
MOVEA.L (SP)+,A4 
CMPA.L  PointeurFenetre(A5),A4 
BEQ.S @1 
MOVE windowKind(A4),-(SP) 
_CloseDeskAcc 
BRA FinMenu 
@1 BSR FermeDestination 
BRA FinMenu 
OuvertureF 
SUBQ.L #Quatre, SP 
CLR.L -(SP) 
PEA RectFenetre 
PEA Titre 
MOVE.B  #Un,-(SP) 
MOVE #documentProc,-(SP) 
CLR.L -(SP) 
CLR -(SP) 
MOVEQ  #Un,D0 
MOVE.L  D0,-(SP) 
_NewWindow 
MOVEA.L (SP),A4 
_SetPort 
MOVE #sysFont,-(SP) 
_TextFont 
MOVE #12,-(SP) 
_TextSize 
MOVE.L  A4,PointeurFenetre(A5) 
RTS 
OuvreSerie 
PEA TamponlOSort(A5) 
PEA Sort 
BSR Ouvres 
PEA TamponlOEntre(A5) 
PEA Entre 
BSR OuvreS 
RTS 
OuvreS 
LINK A6,#0 
MOVEA.L 12(A6),A4 
MOVEA.L A4,A0 
MOVE.L  8(A6),ioFileName(AO) 
CLR.B ioPermssn(A0) 
_Open 
BNE.S @1 
MOVEA.L A4,A0 
MOVE #8,csCode(A0) 
MOVE #94+1024+16384+12288,/ 
csParam(AO) 
_Control,Immed 


BNE.S @1 


MOVE.L  #800,D0 
_NewPtr,clear 
BNE.S @1 
MOVE.L  AO,A1 


MOVEA.L A4,A0 
MOVE 


#9,csCode(A0) 


MOVE.L  A1,csParam(AU) 


MOVE #800,csParam+4(A0) 
_Control,Immed 
BEQ.S @2 

@1 MOVE #2,-(SP) 
BSR Erreur 
_ExitToShell 

@2 UNLK A6 
MOVE.L (SP),8(SP) 
ADDQ.L  #8,SP 
RTS 

AfficheChaineNumero 
MOVE.L  #$0060002E,-(SP) 
_MoveTo 
PEA ChaineNumero 
_DrawString 
RTS 


AfficheTitre 


MOVE.L #$00100044,-(SP) 
_MoveTo 
PEA ChaineNom 
_DrawStrin 
MOVE.L  #5$0020002F,-(SP) 
_MoveTo 
PEA ChainePrenom 
_DrawString 
MOVE.L #$0030002D,-(SP) 
_MoveTo 
PEA ChaineAdresse 
_DrawString 
MOVE.L  #$00400045,-(SP) 
_MoveTo 
PEA ChaineVille 
_DrawString 
MOVE.L #$0050000B,-(SP) 
_MoveTo 
PEA ChaineDepartement 
_DrawString 
TST.B DrNumero(A5) 
BEQ.S @1 
BSR AfficheChaineNumero 
@1 RTS 
RectFenetre DC 50,8,154,478 
Titre DC.B 21,/Pas def 
fichier ouvert',0 
Align 2 
TypeTEXT DC.B ‘TEXT' 
TypeAPPL DC.B ‘'APPL' 
CreateurWrite  DC.B ‘'MACA' 
Type27 DC.B ‘mtlF' 
Dialogue DS.B DWindLen 
NomAccessoire DS.B 32 
EnregEvents DS.B 20 
HandleMPomme DS.L 1 
HandleMFichier DS.L 1 
HandleMEdition DS.L 1 
HandleMSource DS.L 1 
HandleMSortie DS.L 1 
Article DS 1 
SauvePort DSE 1 
PointeurFenetre DS.L 1 
NomFichier DS.B 64 
Volume DS 1 
TamponlO DS.B ioFQElSize 
TamponlOFichier27 
DS.B ioFQElSize 
TamponlODestination 
DS.B ioFQElSize 
ReponseGetFile DS.B 72 
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ReponseGetFileDestination 


DS.B 72 
ReponseGetFileQuitter 

DS.B 72 
Entre DC.B 4,'.AIn'0 
Sort DC.B 5,'.AOut' 
TamponlOEntre DS.B ioFQEÏlSize 
TamponlOSort  DS.B ioFQElSize 
TamponSortie  DS.B 700 
TamponEntre DS.B 700 
BufferErreur DS 5 
VolumeCourant DS 1] 
Rectanglelimite DC 28,4,338,508 
RectEffaceNumero 

DC 84,0,100,500 
RectEffaceVille DC 0,104,100,500 
RectEffaceNom1 DC 0,104,52,500 
RectEffaceNom2 DC 84,104,100,500 
HandleControle DS.L 1 
PointeurTampon DS.L 1 
CompteurTiming DS.L 1 
Numero _Curseur DS 1 
C_Nom DS.B 128 
C_Prenom DS.B 128 
C_Adresse DS.B 128 
C_Ville DS.B 64 
C_Departement DS.B 64 
C_Numero DS.B 32 
Copie_Affichage DS.B 544 
DrMenuFichier DS.B 1 
DrMenuEdition DS.B 1 
DrMenuMode DS.B 1 
DrLPTIValide DS.B 1 
DrMinitel DS.B 1 
DrCom1 DS'B 01 
DrNumero DS.B 1 
DrDepart DS.B 1 
DrCouleur DS.Bu 1 
DrAttente_Affichage_Ville 

DS.B 1 
DrRepere DS.B 1 
Dr_Attente_Ville 

DS.B 1 
DrNumero_en_cours 

DS:B 1 
DrLigne DS.B 1 
DrColonne DS.B 1 
Dr_Attente Nom DS.B 1 


Dr_Attente_Departement 


DS.B 
Dr_Attente_Prenom 
DS.B 
Dr_Attente Nom_Suite 
DS.B 
Dr_Attente Adresse 
DS.B 
DrAffichage DS.B 
DrFinFichier DS.B 
Dr_Erreur DS.B 
ChaineNom DC.B 
ChainePrenom  DC.B 
ChaineAdresse DC.B 
ChaineVille DC.B 
ChaineDepartement 
DC.B 
ChaineNumero  DC.B 
Prompt DC.B 
NomDefaut DC.B 
Table1 DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 


1 


1 


= où pi ni 


5,' Nom : 

8, Prénom :',0 
9,'Adresse :' 
7,'Ville : 


13/ 
‘Département : 
8,' Numéro :',0 
18, Enregistrer J 
sous :'0 
10,'Sans titre’, 0 


$23,'£' 
$24,'$' 
$26,'#' 
$27,'8' 
$2C,'<' 
$2D,'1' 
$2E,'>' 
$2F,'v' 
5907! 








DECB SL r _SetFileInfo 
DC.B 538,'+ BNE.S @2 
DEB SC7/ RTS 
DC.B $3D,'/' 
DC.B $3E,'/' FermeDestination 
DC.B S6A,'Œ' SF DrMenuFichier(A5) 
DC.B S7A,'œ' BSR ChangeCurseur 
DCB S$8A/,£ LEA TamponlO| 
Table_Gra DC.B ‘aàeèuù' Destination(A5),A0 
Table_Cir DC.B ‘aâeéitoôuû' _Close 
Table _Tre DC.B ‘aäeëiioouü' BSR InfoFichier 
Align 2 MOVE.L  PointeurFenetre(A5),-(SP) 
Curseurl  DC.L 5$07C01930,521084104 PEA Titre 
DC.L $41048102,58102FFFE _SetWTitle 
DC.L $81028102,$41044104 MOVE.L  HandleMFichier(A5),/ 
DC.L  $21081930,507C00000 -(SP) 
DC.L 0,0,0,0,0,0,0,0 MOVE #mFermer,-(SP) 
DC «77 _Disableltem 
Curseur2  DC.L $07C01830,520484044 RTS 
DC.L  5$54084B082,58D028382 
DC.L $8162821A,542044404 Boutons 
DC.L  $24081830,$07C00000 RTS 
DC.L 0,0,0,0,0,0,0,0 
DC, #77. Beep7 
Curseur3  DC.L $07C01830,520085014 MOVE #7,-(SP) 
DC.L  $48248442,$82828102 _SysBeep 
DC.L $82828442,$48245014 RTS 
DC.L $20081830,507C00000 
DC.L 0,0,0,0,0,0,0,0 Erreur 
DGC-497 LINK A6,#0 
Curseur4  DC.L $07C01830,524084404 BSR Beep7 
DC.L $54204821A,581628382 CLR.L -(SP) 
DC.L $8D02B082,540844044 MOVE.L  #'STR ;,-(SP) 
DC.L $20481830,507C00000 MOVE 8(A6),-(SP) 
DC.L 0,0,0,0,0,0,0,0 _GetResource 
DC u7:7 MOVE.L (SP)+,A2 
Curseurlbis DC.L $07C01FF0,$3FF87FFC MOVE.L  A2,A0 
DC.L  $7FFCFFFE,$C006C006 _HLock 
DC.L S$COO06FFFE,$7FFC7FEC MOVE.L  (A2),-(SP) 
DC.L  $3FF81FF0,507C00000 CLR.L -(SP) 
DC.L $07C01FF0,53FF87FFC CLR.L -(SP) 
DC.L $7FFCFFFE,$FFFEFFFE CLR.L -(SP) 
DC.L S$FFFEFFFE,$7FFC7FFC _ParamText 
DC.L  $3FF81FF0,507C00000 CLR -(SP) 
DC 77 MOVE #128,-(SP) 
Curseur?2bis DC.L $07C01FF0,53FF87FFC CLR.L -(SP) 
DC.L  $7FFCFFFE,SFFFE8002 _StopAlert 
DC.L S$FFFEFFFE,$7FFC7FFC MOVE (SP)+,D0 
DC.L  $3FF81FF0,507C00000 MOVE.L  A2,A0 
DC.L $07C01FF0,53FF87FFC _HUnLock 
DC.L $7FFCFFFE,SFFFEFFFE UNLK A6 
DC.L $FFFEFFFE,S7FFC7FFC MOVE.L (SP), Deux(SP) 
DC.L  $3FF81FF0,507C00000 ADDQ.L  #Deux,SP 
DC:77 RTS 
1 0 , TesteEntree 
source Tome LEA TamponlOEntre(A5),A0 
InfoFichier MOVE #2,csCode(A0) 
LEA TamponlO[ _Status,Immed 
RU TST.L csParam(AO0) 
Destination(A5),A0 RTS 
LEA NomFichier(A5),A1 
MOVE.L  Al,ioFileName(A0) ValldeMents 
ioVRefNum(A0) Eye d 
CLRB  ioFileType(AO) aus 
u E : MOVEA.L (SP)+,A4 
CLR ioFDirindex(A0) 
GetFileInfo MOVEQ  #0,D5 
= CMP #UserKind,J 
os windowKind(A4) 
BSR Era ) BNE.S FenetreAccessoire 
RTS TST.B DrMenuFichier(A5) 
BNE.S @1 
MOVE.L  HandleMFichier(A5),f 
@1 LEA TamponIO/ (SP) 
Destination(A5),A0 MOVE #mFermer,-(SP) 
MOVEL  #'TEXT'/ _Disableltem 
ioFIUsrWds+fdType(A0) @1 MOVEL  HandleMFichier(A5),[ 
MOVE.L  #'MACA',ioFlUsrWds+] -(SP) 
fdCreator(A0) MOVE #mNouveau,-(SP) 
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_Enableltem 
MOVEL  HandleMEdition(A5),| 
-(SP) 
CLR -(SP) 
_Disableltem 
_DrawMenuBar 
RTS 
FenetreAccessoire 
TST.B DrMenuFichier(A5) 
BNE.S @1 
MOVEL  HandleMFichier(A5),[ 
-(SP) 
MOVE #mFermer,-(SP) 
_Enableltem 
@1 MOVEL  HandleMEdition(A5),{ 
-(SP) 
CLR -(SP) 
_Enableltem 
_DrawMenuBar 
RTS 
LireCaractere 
TST.B DrMinitel(A5) 
BNE.S @1 
LEA TamponlO/ 
Fichier27(A5),A0 
MOVE.L  #Un,ioReqCount(A0) 
LEA scratch8,A3 
MOVE.L  A3,ioBuffer(A0) 
MOVE #fsAtMark,ioPosMode(A0) 
CERL ioPosOffset(A0) 
_Read 
BEQ.S @2 
CMPI #-39,D0 
BEQ.S @3 
MOVE #1,-(SP) 
BSR Erreur 
@3 ST DrFinFichier(A5) 
RTS 
@1 LEA TamponlOEntre(A5),A0 
MOVE.L  #Un,ioReqCount(A0) 
LEA scratch8,A3 
MCOVEL  A3,ioBuffer(A0) 
MOVE #fsFromStart,] 
ioPosMode(A0) 
CLR.L ioPosOffset(A0) 
_Read 
@2 MOVE.B (A3),D5 
ANDI #$007F,D5 
RTS 
Place_Caractere 
LINK A6,#0 
MOVE.L  8(A6),A0 
ADDQ.B  #1,(A0) 
MOVE.B  (A0),DO 
EXT DO 
MOVE.B  D5,0(A0,D0) 
UNLK A6 
MOVE.L  (SP),4(SP) 
ADDQ.L  #4,5P 
RTS 
Enregistre 
TST.B DrMenuFichier(A5) 
BEQ @2 
LEA C_Nom(A5),A0 
LEA Copie_Affichage(A5),A1 
MOVE.L  #544,D0 
_BlockMove 
MOVE.B  #'e'Scratch8 
PEA Scratch8 
MOVEQ  #1,D0 
MOVE.L  DO,-(SP) 
BSR Ecrit 
TST.B Dr_Erreur(A5) 
BNE @2 
BSR Ecrit CR 


@1 BSR 


@2 BSR 


Ecrit_CR 
MOVE.B 
PEA 
MOVEQ 
MOVE.L 
BSR 
RTS 


Ecrit 
LINK 
LEA 


MOVE.L 
MOVE.L 
MOVE 
CLR.L 
_Write 


Dr_Erreur(A5) 
@2 
C_Nom(A5),D0 
DO 

D0 
C_Nom+1(A5) 
D0,-(SP) 

Ecrit 
Dr_Erreur(A5) 
@2 

Ecrit _ CR 
Dr_Erreur(A5) 
@2 
C_Prenom(A5) 
@1 
C_Prenom(A5),D0 
DO 


DO 
C_Prenom+1(A5) 
DO,-(SP) 

Ecrit 
Dr_Erreur(A5) 
@2 

Ecrit CR 
Dr_Erreur(A5) 
@2 
C_Adresse(A5),DO 
DO 

DO 
C_Adresse+1(A5) 
DO,-(SP) 

Ecrit 
Dr_Erreur(A5) 
@2 

Ecrit CR 
Dr_Erreur(A5) 
@2 
C_Ville(A5),D0 
DO 

DO 
C_Ville+1(A5) 
DO0,-(SP) 

Ecrit 
Dr_Erreur(A5) 
@2 

Ecrit CR 
Dr_Erreur(A5) 
@2 
DrNumero(A5) 
@2 
C_Numero(A5),D0 
DO 

DO 
C_Numero+1(A5) 
DO0,-(SP) 

Ecrit 
Dr_Erreur(A5) 
@2 

Ecrit_CR 

Zero Chaines Nom 


#13,Scratch8 
Scratch8 
#1,D0 
D0,-(SP) 
Ecrit 


A6,#0 

TamponlO/ 
Destination(A5),A0 
8(A6),ioReqgCount(A0) 
12(A6),ioBuffer(A0) 
#fsAtMark,ioPosMode(A0Q) 
ioPosOffset(A0) 


BEQS 
CMPI 
BNE.S 
MOVE 
BSR 

@5 ST 
BRA.S 

@2 CMPI 
BNE.S 
MOVE 
BSR 
BRA.S 

@4 MOVE 
BSR 
BRA.S 

@1 SF 

@3 UNLK 
MOVE.L 
ADDQ.L 
RTS 


#1,-(SP) 
Erreur 

@5 
Dr_Erreur(A5) 
A6 

(SP),8(SP) 
#8,5P 


Zero_ Chaines Nom 


SF 
SF 
SF 
SF 
RTS 


C_Nom(A5) 
C_Prenom(As5) 
C_Adresse(A5) 
C_Numero(A5) 


Zero_Chaines_Ville 


C_Ville(A5) 
C_Departement(A5) 


Affichage_Ville 


PEA RectEffaceVille 
_EraseRect 
MOVE.L #$0040006D,-(SP) 
_MoveTo 
PEA C_Ville(A5) 
_DrawString 
MOVE.L  #50050006D,-(SP) 
_MoveTo 
PEA C_Departement(A5) 
_DrawString 
LEA C_Ville(A5),A0 
LEA Copie_Affichage+| 
384(A5),A1 

MOVE.L  #128,D0 
_BlockMove 
SF Copie_Affichage(A5) 
SF Copie_Affichage+128(A5) 
SF Copie_Affichage+256(A5) 
SF Copie_Affichage+512(A5) 
RTS 

Affiche Tous 
MOVEQ  #0,D1 
MOVE.B C_Nom(A5),D1 
EXT D1 
ADD D1,D0 
MOVE.B C_Prenom(A5),D1 
EXT D1 
ADD D1,D0 
MOVE.B C_Adresse(A5),D1 
EXT D1 
ADD D1,D0 
MOVE.B C_Numero(A5),D1 
EXT D1 
ADD D1,D0 
BNE.S @3 
SF Dr_Erreur(A5) 
BRA.S @2 

@3 TST.B DrAffichage(A5) 
BEQ.S @4 
SF Dr_Erreur(A5) 
BRA.S @2 

@4 ST DrAffichage(A5) 
PEA RectEffaceNom1 
_EraseRect 
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MOVE.L  #$0010006D,-(SP) 
_MoveTo 
PEA C_Nom(A5) 
_DrawString 
MOVE.L  #5$0020006D,-(SP) 
_MoveTo 
PEA C_Prenom(A5) 
_DrawString 
MOVE.L  #5$0030006D,-(SP) 
_MoveTo 
PEA C_Adresse(A5) 
_DrawString 
TST.B DrNumero(A5) 
BNE.S @1 
BSR Enregistre 
@2 RTS 
@1 PEA RectEffaceNom2 
_EraseRect 
MOVE.L #$0060006D,-(SP) 
_MoveTo 
PEA C_Numero(A5) 
_DrawString 
BSR Enregistre 
RTS 
Ville_Departement 
TST.B Dr_Attente Ville(A5) 
BNE.S @1 
@2 RTS 
@1 CMPIB #$42,DrCouleur(A5) 
BNE.S @2 
CMPLB #1,DrLigne(A5) 
BEQ.S @2 
SE Dr_Attente_Ville(A5) 
ST Dr_Attente_| 
Departement(A5) 
RTS 
Ville_Ville 
TST.B Dr_Attente_Ville(A5) 
BNE.S @1 
@2 RTS 
@1 CMPIB #547,DrCouleur(A5) 
BNE.S @2 
SF C_Ville(A5) 
RTS 
Departement_Ligne 
TST.B Dr_Attente_| 
Departement(A5) 
BNE.S @1 
RTS 
@1 SF Dr_Attente_{ 
Departement(A5) 
ST DrAttente_Affichage_| 
Ville(A5) 
RTS 
Nom_Prenom 
TST.B Dr_Attente Nom(A5) 
BEQS @1 
CMPI.B #6,DrColonne(A5) 
BMIS @1 
CMPLB #31,DrColonne(A5) 
BGE.S @1 
SF Dr_Attente Nom(A5) 
ST. Dr_Attente_Prenom(A5) 
SF DrAffichage(A5) 
SF C_Prenom(A5) 
@1 RTS 
SuiteNom_Adresse 
TST.B Dr_Attente Nom_{| 
Suite(A5) 
BNE.S @1 
@2 RTS 
@1 CMPIB #542,DrCouleur(A5) 
BNE.S @2 
SF Dr_Attente Nom _| 


Suite(A5) TmPoms27 
ST Dr_Attente_Adresse(A5) MOVE.L  #5$640064,-(SP) 
SF C_Adresse(A5) CLR.L -(SP) 
RTS PEA FiltreFichiers 
MOVE #1,-(SP) 
Adresse Fin PEA Type27 
TST.B Dr_Attente_ Adresse(A5) CLR.L -(SP) 
BNE.S @1 PEA ReponseGetFile(A5) 
@2 RTS MOVE #SFGetFile,-(SP) 
@1 CMPLB #5$42,DrCouleur(A5) _Pack3 
BNE.S @2 BSR AfficheTitre 
SF Dr_Attente_Adresse(A5) BSR MiseJourZones 
RTS TST ReponseGetFile+/ 
rGood(A5) 
MiseJourZones BEQ.S FinMenu 
MOVE.L  #5$0040006D,-(SP) LEA TamponlOFichier27(A5),] 
_MoveTo A0 
PEA Copie_Affichage+384(A5) LEA ReponseGetFile+] 
_DrawString rName(A5),A1 
MOVE.L  #$0050006D,-(SP) MOVE.L  Al,ioFileName(AO0) 
_MoveTo MOVE ReponseGetFile+ rVolume/ 
PEA Copie_Affichage+448(A5) (A5),ioVRefNum(A0) 
_DrawString CLR.L ioOwnBuf(A0) 
MOVE.L  #$0010006D,-(SP) MOVE.B  #fsRdPerm,ioPermssn(A0) 
_MoveTo À 
PEA Copie_Affichage(A5) BEQ.S @1 
_DrawString MOVE #1,-(SP) 
MOVE.L  #$0020006D,-(SP) BSR Erreur 
_MoveTo BRA FinMenu 
PEA Copie_Affichage+128(A5) @1 SF DrFinFichier(A5) 
_DrawString SF DrMinitel(A5) 
MOVE.L  #50030006D,-(SP) 
_MoveTo Boucle27 
PEA Copie_Affichage+256(A5) BSR Niveau0 
_DrawString TST.B DrFinFichier(A5) 
TST.B DrNumero(A5) BEQ.S Boucle27 
BNE.S @1 LEA TamponlOFichier27(A5),[ 
RTS A0 
@1 MOVEL  #$0060006D,-(SP) _Close 
_MoveTo ST DrMinitel(A5) 
PEA Copie_Affichage+512(A5) BRA FinMenu 
_DrawString 
RTS TmQuitter 
BSR FermeSerie 
Source ‘T_Pom's/3.Asm’ net une 
TraitSource 
TmApplications 
DO - ES MOVE  #80,(SP) 
ableSource(D0),D0 
MOVE (SP),-(SP) 
JMP TableSource(D0) CLRL (SP) 
TableSource CLRL (SP) 
DC FinMenu-TableSource M OVE #Un.- 
n,-(SP) 
DC TmPoms27-TableSource PEA TypeAPPL 
DC TmMinitel-TableSource CLRL (SP) 
TraitSortie PEA ReponseGetFile] 
ADD D0,D0 na 
MOVE  TableSortie(DO),DO MOVE  #SFGetFile,-(SP) 
JMP TableSortie(DO) Packs 
TableSortie TST ReponseGetFileQuitter+/ 
: : rGood(A5) 
DC FinMenu-TableSortie BEQ Pau 
DC TmQuitter-TableSortie , 
DC TmApplications-| PSR Farmebarle 
TableSortie @3 SUBQ.L #Quatre SP 
_FrontWindow 
TSLL (SP) 
TmMinitel BNE.S @1 
TST.B DrMinitel(A5) ADDQ #Quatre,SP 
BNE.S @1 BRA.S @2 
ST DrMinitel(A5) @1 _HideWindow 
MOVE.L  HandleMSource(A5),-(SP) BRAS @3 
MOVE #mMinitel,-(SP) @2 LEA TamponIO(A5),A0 
MOVE.B  #255,-(SP) MOVE ReponseGetFileQuitter| 
_Checkltem +rVolume(A5),{ 
MOVE.L  HandleMSource(A5),-(SP) ioVDrvNum(AO) 
MOVE #mPoms27,-(SP) _SetVol 
CLR -(SP) MOVEQ.L #Quatre,DO 
_Checkltem MOVE.L  AppParmHandle,AO 
@1 BRA FinMenu _SetHandleSize 
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MOVE.L AppParmHandle,A0 
MOVE.L  (A0),A0 
CLR.L (A0) 
CLR -(SP) 
PEA ReponseGetFileQuitter+[ 
rName(A5) 
MOVE.L  SP,AO 
Launch 
FermeSerie 
TST.B DrMenuFichier(A5) 
BEQ.S @1 
LEA TamponlODestination| 
(A5),A0 
_Close 
BSR InfoFichier 
@1 LEA TamponlOEntre(A5),A0 
_Close 
LEA TamponlOSort(A5),A0 
_Close 
RTS 
TmNumero 
MOVE.L HandleMFichier(A5),[ 
-(SP) 
MOVE #mNumero,-(SP) 
TST.B DrNumero(A5) 
SEQ DrNumero(A5) 
MOVE.B  DrNumero(A5),-(SP) 
_Checkltem 
TST.B DrNumero(A5) 
BEQ.S @1 
BSR AfficheChaineNumero 
@2 BRA FinMenu 
@1 PEA RectEffaceNumero 
_EraseRect 
BRA.S @2 
FiltreFichiers 
LINK A6,#0 
MOVEM.L DO0-D2/A0-A2,-(SP) 
MOVE.L  8(A6),A0 
TST.B ioFlAttrib(AQ) 
BMI.S FiltreNon 
MOVE ioFIUsrWds+fdFlags(A0),[ 
DO 
ANDI #$5000,D0 
BNE.S FiltreNon 
CLR 12(A6) 
BRA.S FiltreOK 
FiltreNon 
MOVE #$FFFF,12(A6) 
FiltreOK 
MOVEM.L (SP)+,D0-D2/A0-A2 
UNLK A6 
MOVE.L  (SP),4(SP) 
ADDQ.L  #4,SP 
RTS 
CurseurAttente 
SUBQ.L  #4,SP 
_TickCount 
MOVE.L  CompteurTiming(A5),DO 
ADDQ.L  #2,D0 
CMP.L (SP)+,D0 
BMI.S ChangeCurseur 
RTS 
ChangeCurseur 
TST.B DrMenuFichier(A5) 
BEQ.S ChangeCurseurBis 
MOVE #68,D0 
MOVE Numero _Curseur(A5),D4 
MULU D4,D0 
LEA Curseur1,A2 
PEA 0(A2,D0) 
ChangeCurseur2 
_SetCursor 
SUBQ.L  #4,SP 
_TickCount 


MOVEL  (SP)+,f 
CompteurTiming(A5) 
ADDQ #1, Numero _Curseur(A5) 
ANDI #$0003,/ 
Numero_Curseur(A5) 
RTS 
ChangeCurseurBis 
MOVE Numero_Curseur(A5),D4 
ANDI #1,D4 
BEQ.S @1 
PEA Curseur1bis 
BRA.S ChangeCurseur?2 
@1 PEA Curseur2bis 
BRA.S ChangeCurseur2 


Source ‘T_Pom's/4.Asm’ 


Niveau0 
BSR 
BSR 
TST.B 
BNE.S 

@2 RTS 

@1 CMPLB 
BEQ.S 
TST.B 
BEQ.S 
CMPLB 
BEQ.S 
CMPI.B 
BEQ.S 
CMPI.B 
BEQ 
CMPL.B 
BEQ 
CMPLB 
BEQ 
CMPI.B 


@2 RTS 
@1 MOVE.B 


CurseurAttente 
LireCaractere 
D5 

@1 


#$C,D5 
Changement_Page 
DrDepart(A5) 


Changement_Couleur 
#$1F,D5 
Changement Position 
#$10,D5 
Numero_Telephone 
#$60,D5 
Fin_Ensemble_60 
#$18,D5 
Fin_Ensemble_18 
#$16,D5 
Caractere_ALC 
#32,D5 

@2 

Dispatch 


LireCaractere 
D5 
@1 


D5,D0 
#S$0F,D0 

@2 

#9,D0 

@2 
LireCaractere 
D5 

@2 

#4,D5 

@2 
DrRepere(A5) 


Changement_Page 


BSR 


Zero_Chaines_ Ville 


DrDepart(A5) 
Dr_Attente_Ville(A5) 
Dr_Attente Nom(A5) 


Changement_Couleur 


BSR 
TST.B 
BNE.S 
@3 RTS 
@1 CMPIB 
BNE.S 


LireCaractere 
D5 
@1 


#536,D5 
@2 


@2 


@4 


@5 





LireCaractere 

@3 

#542,D5 

@4 

#$47,D5 

@5 
D5,DrCouleur(A5) 
Ville_Departement 
Ville Ville 
SuiteNom_ Adresse 


Departement_Ligne 


Changement_Position 


@2 
@1 


BSR 
TST.B 
BNE.S 
RTS 
MOVE.B 
ANDI.B 
BSR 
TST.B 
BEQ.S 
MOVE.B 
ANDLB 


BSR 
BSR 
RTS 


LireCaractere 
D5 
@1 


D5,DrLigne(A5) 
#%00111111,DrLigne(A5) 
LireCaractere 

D5 

@2 

D5,DrColonne(A5) 
#%00111111,/ 
DrColonne(A5) 
Nom_Prenom 

Adresse Fin 


Numero_Telephone 


@2 
@1 


@3 


LireCaractere 
D5 
@1 


#2,D5 

@3 

Dr_Attente Prenom(A5) 
DrNumero_en_cours(A5) 
C_Numero(A5) 

@2 

#3,D5 

@2 
DrNumero_en_cours(A5) 
Dr_Attente Nom _| 
Suite(A5) 
C_Nom(A5),A0 
(A0),D0 

DO 

#' ",0(AO,D0) 

@4 

#127,D0 

@4 

#1,(A0) 

#' ',1(A0,D0) 


Fin_Ensemble_60 


@2 
@1 


BSR 
TST.B 
BNE.S 
RTS 
CMPLI.B 
BNE.5 
BSR 
TST.B 


BEQ.S 
CMPI.B 
BGE.S 
TST.B 
BEQ.S 
TST.B 
BEQ.S 
BSR 

SF 


BRAS 


LireCaractere 
D5 
@1 


#$12,D5 

@2 

LireCaractere 
DrAttente_Affichage_| 
Ville(A5) 

@3 

#10,DrLigne(A5) 

@2 

C_Ville(A5) 

@2 
C_Departement(A5) 
@2 

Affichage_Ville 
DrAttente_Affichage_| 
Ville(A5) 

@4 
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@3 TST.B Dr_Attente Nom(A5) 
BNE.S @2 
BSR Affiche Tous 
TST.B DrMenuFichier(A5) 
BEQ.S @4 
TST.B Dr_Erreur(A5) 
BEQ.S @4 
BSR FermeDestination 
@4 ST Dr_Attente Nom(A5) 
SF C_Nom(A5) 
RTS 


Fin_Ensemble_18 
TST.B Dr_Attente Nom(A5) 
BNE.S @1 


BSR Affiche Tous 
TST.B DrMenuFichier(A5) 
BEQ.S @2 
TST.B Dr_Erreur(A5) 
BEQ.S @2 
BSR FermeDestination 
@2 ST Dr_Attente Nom(A5) 
SF C_Nom(A5) 
@1 RTS 


Caractere_ALC 

BSR LireCaractere 

LEA Table1,A0 

MOVEQ  #16,D0 
@1 CMP.B (A0),D5 

BEQS @2 

ADDQ.L  #2,A0 

DBRA D0,@1 

BRAS Caractere ALC Accent 
@2 MOVE.B 1(A0),D5 

BRA Dispatch 
Caractere ALC_ Accent 

CMPI.B #541,D5 

BNE.S Caractere ALC Accent 2 

BSR LireCaractere 

LEA Table _Gra,AO 

MOVEQ  #2,D0 
@1 CMP.B (A0),D5 

BEQ.S @2 

ADDQ.L  #2,A0 

DBRA D0,@1 

RTS 
@2 MOVE.B 1(A0),D5 

BRA.S Dispatch 
Caractere ALC Accent _2 

CMPI.B #$42,D5 

BNE.S Caractere_ ALC_Accent_3 


BSR LireCaractere 
CMPI.B #'e',D5 
BEQ.S @1 

RTS 


@1 MOVE.B #'é',D5 
BRAS Dispatch 

Caractere_ALC_Accent_3 
CMPL.B #$43,D5 
BNE.S Caractere ALC_ Accent _4 
BSR LireCaractere 
LEA Table_Cir,AO 
MOVEQ  #4,D0 

@1 CMP.B (A0),D5 
BEQS @2 
ADDQ.L  #2,A0 
DBRA D0,@1 
RTS 

@2 MOVE.B 1(A0),D5 
BRA.S Dispatch 

Caractere ALC_Accent_4 
CMPLB #$48,D5 
BNE.S Caractere_ ALC Accent 5 
BSR LireCaractere 
LEA Table_Tre,AO 
MOVEQ  #4,D0 

@1 CMP.B (A0),D5 
BEQS @2 





Pom's n° 30 


ADDQ.L  #2,A0 
DBRA D0,@1 


@2 MOVE.B 1(A0),D5 
BRAS Dispatch 

Caractere_ALC_ Accent 5 
CMPI.B #$4B,D5 


BEQ.S @2 
RTS 

@2 BSR LireCaractere 
CMPLB #'c',D5 
BEQ.S @1 
RTS 


@1 MOVE.B #'c,D5 
BRA.S Dispatch 


Dispatch 
CMPLB #2,DrLigne(A5) 
BMI.S @2 


TST.B Dr_Attente_Ville(A5) 
BEQ.S R_Departement 
CMPLB #5,DrColonne(A5) 
BMIS @2 

CMPI.B #$47,DrCouleur(A5) 
BNE.S @2 

CMPI.B #63,C_Ville(A5) 


BEQ.S @2 

PEA C_Ville(A5) 

BSR Place _Caractere 
@2 RTS 


R_Departement 

TST.B Dr_Attente | 
Departement(A5) 

BEQ.S R_Confirme 

CMPI.B #5,DrColonne(A5) 

BMILS @2 

CMPIL.B #$42,DrCouleur(A5) 

BNE.S @2 

CMPLB #63,C_Departement(A5) 

BEQS @2 


PEA C_Departement(A5) 
BSR Place Caractere 
@2 RTS 
R_Confirme 
TST.B DrAttente_Affichage_| 
Ville(A5) 
BEQ.S R_Nom 
RTS 
R_Nom 


TST.B Dr_Attente Nom(A5) 
BEQ.S R_Prenom 

CMPLB #3,DrLigne(A5) 
BMI.S @1 

CMPLI.B #5,DrColonne(A5) 
BMI.S @1 

CMPLB #$47,DrCouleur(A5) 
BNE.S @1 

CMPIL.B #127,C_Nom(A5) 


BEQ.S @1 
PEA C_Nom(A5) 
BSR Place Caractere 
@1 RTS 
R_Prenom 


TST.B Dr_Attente_Prenom(A5) 
BEQ.S R_Numero 

CMPIB  #3,DrLigne(A5) 

BMI.S @1 

CMPI.B #5,DrColonne(A5) 
BMIS @1 

CMPILB #$47,DrCouleur(A5) 
BNE.S @1 

CMPI.B #127,C_Prenom(A5) 


BEQ.S @1 
PEA C_Prenom(A5) 
BSR Place_Caractere 


@1 RTS 


R_Numero 
TST.B 
BEQ.S 
CMPI.B 
BEQ.S 
PEA 
BSR 

@1 RTS 


R_ Nom Suite 
TST.B 


BEQ.S 
CMPI.B 
BMIS 
CMPI.B 
BMIS 
CMPI.B 
BNE.S 
CMPI.B 
BEQ.S 
PEA 
BSR 

@1 RTS 


R_Adresse 
TST.B 
BEQ.S 
CMPI.B 
BMI.S 
CMPI.B 
BMIL.S 
CMPI.B 
BNE.S 
CMPI.B 
BEQ.S 
PEA 
BSR 

@1 RTS 


DrNumero_en_cours(A5) 
R_Nom_Suite 
#31,C_Numero(A5) 

@1 

C_Numero(A5) 

Place _Caractere 


Dr_Attente Nom | 
Suite(A5) 
R_Adresse 
#4,DrLigne(As5) 

@1 
#5,DrColonne(A5) 
@1 
#$47,DrCouleur(A5) 
@1 
#127,C_Nom(A5) 
@1 

C_Nom(A5) 

Place Caractere 


Dr_Attente_Adresse(A5) 
@1 

#4,DrLigne(A5) 

@1 
#5,DrColonne(A5) 
@1 
#$42,DrCouleur(A5) 
@1 
#127,C_Adresse(A5) 
@1 

C_Adresse(A5) 
Place _Caractere 


Fichier ‘T_Pom's.R’ 


T_Pom's 
APPLPfAm 


Type PfAm = STR 


Pom's - Filtre abonnés Minitel - Mai 1987 


Type MENU 
ÿ 
\14 


MÀ propos de T_Pom's… 


(- 


Type MENU 
2 


Fichier 


A2Nouveau.. /O 


(- 


Fermer/F 


Type MENU 


Édition 
Annuler/Z 


Coller/V 
È 
Effacer 


Type MENU 








4 

Source 
A4Fichier ‘Pom's 27’... 
IN125Minitel 


Type MENU 
À 


Quitter 
ABvers le ‘Finder’/Q 


Aôvers une application... / A 


Type ALRT 


128 (4) 
82 72 178 440 
128 


3555 


Type DITL 
128 (4) 
2 


Button 
356 256 80 352 
OK 


StaticText 
16 64 48 352 
A0M1A2N3 


Type STR 
,1 (4) 
Erreur d'entrée/sortie. 


72 (4) 
Le catalogue est saturé. 


3 (4) 


Le volume est saturé. 


Type DLOG 
11 4) 


50 72 290 440 
Visible NoGoAway 


Type DITL 
A (4) 
14 


StaticText 
0 0 248 368 
\20 





IconItem 
24 24 56 56 
257 


Iconltem 
192 312 228 344 
266 


StaticText 
12 72 28 352 
T_Pom's — V 1.0/Mac 


StaticText 
36 72 52352 
© 1987 Pom's/Éditions MEV 


ahdécdhhatbananiats D ddl Blue LP. RAR) Led A 86 EEE LR ELETRI CES KR CUP ONCE EE AE 81 GRUBNOIRE QUE 0 OUR EE ER RE I EU OR RSR OR EE 


StaticText 
52 72 68 352 


Jean-Luc Bazanegue et Christian Piard 


StaticText 
76 24 92 352 


“T_Pom's” utilise l'annuaire électronique 


StaticText 

92 24 108 352 

— ou un fichier créé par le programme 
‘Minitel’ 


StaticText 
108 24 124 352 
du numéro 27 de Pom's — pour constituer des 


StaticText 

124 24 140 352 

fichiers d'adresses directement { 
exploitables. 


StaticText 
148 24 164 352 
Les ‘sources’ (MDS 68000) de la version 1.0 se 


StaticText 
164 24 180 352 
trouvent dans le numéro 30 de “Pom's”. 


StaticText 
196 24 212 29% 
Pom's/Éditions MEV — 12, rue d'Anjou — 


StaticText 
212 24 228 29% 
78000 Versailles — Tél. : (1) 39 51 24 43. 


Type BNDL 
128(32) 
PfAm 0 
ICN# 

0 128 
FREF 
0128 


Type FREF 
128 (32) 
APPL 0 


TYPE ICN# = GNRL 


* Icône application 

1128(32) 
p2 
7FFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 S3FE6FC9 9000A 009 97FD4FE9 
90018009 973D3CE9 907FD609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FAA349 
987D4619 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 
+ 


7FFFFFFE FFFFFFFE FFFFFFFE FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFE FFFFFFFF FFFFFFFF 
7FFFFFFE 3FFFFFFC 3FFFFFFC 3FFFFFFC 
3FFFFFFC 3FFFFFFC 3FFFFFFC 3FFFFFFC 
3FFFFFFC 3FFFFFFC 3FFFFFFC 3FFFFFFC 


TYPE ICON = GNRL 


* Icône à propos 

,257 (4) 
7FFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 98FE6FC9 9000A 009 97FD4FE9 
90018009 973D3CE9 907FD609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FA A349 
987D4619 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 


* Nouveau 

,258 (4) 
7EFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 90000009 93DEDBC9 9198D989 
9198D989 91985189 919C2189 91985189 
9198D989 9198D989 919ED989 90000009 
98000019 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAA Added 
20000004 25555504 20000004 2AFFEADS 
20000004 3FFFFFFC 20018004 3FFFEEE 


* Fermer 

,259 (4) 
7FFFFFFE 80000001 9F87E1F9 AC4S122 
A6499265 A0481205 BFCFF3FD 9FS7E2 
80000001 9F87E1F9 A0481205 A649925S 
A0481205 BFCFF3FD 9F87E1F9 800000 
9F87E1F9 A0481205 A6499265 AU48120S 
BFCFF3FD 9F87E1F9 80000001 9F87E2E2 
A0481205 A6499265 A0481205 BFCFESEE 
9F87E1F9 80000001 7FFFFFFE 0000000 


* Source Fichier 27 

,260 (4) 
OFFFFCOO0 08000600 09134D00 OAAA ASS 
0B12A440 0A000420 0A0007F0 0833C010 
08484010 08108010 08210010 08410010 
08790010 08000010 08000010 09FC0010 
08000010 083DE010 08000010 097CF810 
08000010 083F9F10 08000010 098F8F10 
08000010 087EEF90 08000010 09F3E590 
08000010 08000010 08000010 OFFFFFFO 


* Source Minitel 

,261 (4) 
7FFFFFFE 80000001 A0000005 9FFFFFF9 
98186199 9FFFFFF9 90000009 9FFFFFF9 
904C0C29 9FFFFFF9 96318C09 9FFFFFF9 
90411849 9FFFFFF9 90000009 9FFFFFF9 
98C31919 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 


* Finder 

,264 (4) 
OFFFFFFO 10000008 13FFFFC8 17FFFFE8 
1668F468 16D5EAE8 1645E2E8 16D5EAE8 
1655EAE8 17FFFFE8 17998A68 179494E8 
17949CE8 17948E68 17949E68 16949E68 
173988E8 17FFFFE8 13FFFFC8 10000008 
10000008 10000008 100001C8 1200FFC8 
10000008 10000008 10000008 OFFFFFFO 
08000010 0A 000050 08000010 07FFFFEO 


* Application 

7265 (4) 
00010000 00028000 00044000 00082000 
00129000 00254800 0048A 400 00904200 
01282100 02144080 040 A 8040 09450020 
12A28010 24514008 4828BF04 84144082 
4A2A8041 25453022 1283C814 095E7FOF 
04A23007 02510007 01288007 00906007 
00401FE7 0020021F 00100407 00080800 
00041000 00022000 00014000 00008000 


* Pom's 

,266 (4) 
00000000 00000050 00000080 00001100 
000008AA 00000155 000000AA 00001401 
00002A02 00004514 0000A280 00015140 
000228A0 00051440 00028A00 00014560 
0028A2A0 00545140 008A2980 00453D7C 
00A2FFD6 1451FEAB 2A28FD45 4515FAA3 
A20AFD45 5100FAA3 2A007D46 14007AAA 
0A003D54 05001AA8 02800DD0 01000660 


INCLUDE T_Pom's.Code 
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TPom s : 
Minitel, Apple // et le 11 


Ce programme a pour objet la 
récupération des informations 
accessibles sur le Minitel par le 
11, c'est-à-dire les noms, 
numéros de téléphone et adresse 
des abonnés figurant à l'annuaire 
électronique. 


Le programme constitue sur 
disque un fichier comprenant 
l'ensemble des abonnés affichés 
par le service, fichier imprimable, 
récupérable par un traitement de 
textes ou par votre propre 
programme de mailings par 
exemple. 


Le programme ne fonctionne que 
sous ProDOS. 


Configuration 


Pour utiliser ce programme, vous 
devez disposer des éléments 
suivants : 


Vous avez un Apple ][+ : 


+ une ROM pour l'affichage des 
minuscules ; 

° un Minitel, 

+ une carte ‘langage’ qui accueil- 
lera ProDOS ; 

* une carte SuperSérie Apple ; 

* un câble de liaison type Apple 
Ile. 


Vous avez un Apple /le équipé ou 

non du 65C02 : 

° un Minitel; 

° une carte SuperSérie Apple ; 

* un câble de liaison type Apple 
Ile. 

Vous avez un Apple /Ic : 

° un Minitel; 

* une carte SuperSérie Apple ; 


° un câble de liaison type Apple 
Ile. 


Vous avez un Apple IIGS : 

* un Minitel, 

° un câble de liaison type Mac- 
intosh Plus (on utilise le port 
série intégré). Si vous désirez 
utiliser une carte SuperSérie 





Pom's n° 30 


installée dans l'un des slots, il 
faut un câble type Apple //e. 


Tous les types de Minitel 
conviennent. Le câble peut être 
réalisé d'après les schémas des 
numéro 27 et 28 de Pom'’s ou 
commandé à la revue (bon de 
commande page 74). 

Le programme se charge de 
rechercher la carte SSC pour le 
port série en commençant par le 
port 7 pour finir par le 1. Une 
carte en port 2 sera donc utilisée 
même s'il en existe une également 
en port 1 (cas du //c et du IIGS). 


Mode d'emploi 


Le programme crée sur disque un 
fichier de type TEXT comprenant 
les abonnés consultés à l'aide du 
Minitel. Les différents options du 
menu sont les suivantes : 


Recevoir l'annuaire 
avec numéros de 
téléphone 

Option R : Le programme vous 
demande le nom du fichier TEXT 
à créer avant de se mettre à 
l'écoute du Minitel. 


Le nom de fichier doit respecter la 
syntaxe ProDOS (la routine de 
saisie élimine la plupart des fautes 
possibles). Il peut être de la 
forme : 

/RAM/CHEMINEES 78 

ou 

CHEMINEES 


Dans ce dernier cas, le préfixe par 
défaut est utilisé pour déterminer 
le volume d'accueil du fichier. 


Si le fichier existe déjà sur le 
volume, le programme refusera 
de l'écraser, ceci pour éviter les 
conséquence d'une fausse 
manœuvre. 

Dans le cas où vous désirez 
réellement remplacer un fichier 
existant appuyer sur : 





Christian Piard 


- & (IIGs) ou 

- Option (IIGs) ou 

- G(/e, //c) ou 

- un bouton du joystick (][+) 


lorsque vous faites le RETURN de 
validation du nom de fichier. 
L'éventuel ancien fichier sera 
écrasé. 


Le programme affiche alors 
fichier TEXT créé. Il ne reste 
plus qu'à commencer la 
consultation sur Minitel. La 
mémoire disponible pour les 
adresses est d'environ 26000 
octets, ce qui suffit pour 3 à 400 
adresses. Le compteur affiché à 
l'écran vous indique en 
permanence la place disponible. 


À tout moment, pour libérer de la 
place en mémoire, il est possible 
de presser s ce qui provoque 
l'écriture sur le volume ; la taille 
du fichier n'est donc limité que 
par la place disponible sur le 
disque. En fin de consultation, 
presser ESC ce qui sauvegarde la 
mémoire et reconduit au menu 
général. 

Au fur et à mesure de l'enregis- 
trement, les noms, adresses et 
numéros de téléphone appa- 
raissent à l'écran. 


Recevoir l'annuaire 
sans numéros de 
téléphone 


Option L : Toutes les indications 
de l'option précédente restent 
valables. Seule différence : les 
numéros de téléphone ne feront 
pas partie du fichier : c'est donc 
la solution à retenir dans la 
perspective d'un mailing. 


Imprimer un fichier 


Option I Conçue comme 
accessoire, cette option permet 
d'imprimer un fichier TEXT sans 
devoir nécessairement charger 








PU TP CO PR TNT OR PR TRE I SE ER QE NUS DS SE né Le Qi Ah ES MOUSE LIL Din ii LL HI 


FTNIUNTE 


TIR 


ER ETF EMEN 


AppleWorks, AppleWriter ou 
autre. 


Un fichier d'adresses vient d'être 
créé : cette option permet 
d'obtenir rapidement sa représen- 
tation papier, sans souci de 
présentation. 


Le programme, qui suppose 
l'imprimante connectée au port 1, 
interrompra l'impression si vous 
pressez ESC. 


L'impression de fichier d'un type 
autre que TEXT sera refusée ; 
toutefois, les fichiers de textes 
AppleWorks sont admis. 


Modifier le préfixe 
Option M : C'est l'option à 
choisir pour changer le préfixe 
par défaut, préfixe qui est rappelé 
en haut de l'écran. Par exemple : 


/UNIDISK2/POMS30/T3 


Volumes en ligne 

Option V : Option indispensable 
pour identifier les disquettes, 
disques virtuels et autres volumes 
actuellement disponibles. 


Catalogue 


Option C : Permet le listage des 
fichiers du catalogue visé par le 
préfixe par défaut. Si celui-ci est : 


/PROFILE/CLIENT 


seuls les fichiers du dossier 
CLIENT apparaîtront. 


Quitter 


Option Q : Contrairement à CTRL- 
RESET, Cette option permet de 
quitter le programme. 


Le filtrage 


La récupération des éléments 
purement TEXT de l'annuaire 
électronique présente bien des 
difficultés du fait du caractère non 
standard de la présentation. Il 
faudra œuvrer en traitement de 
textes avant d'envisager 
l'impression d'étiquettes-adresse 
(ne serait-ce que pour ajouter les 
code postaux indisponibles dans 
la consultation). 


Pour l'identification de ce qui doit 


Deux pages de l'annuaire illustrant la ‘variété’ de la présentation 


D D D D D D D De ee De 


FNAC 
PARIS PARIS 1 


> 1 F.N.A.C. (Fédération 
Nationale d'Achats des 
Cadres ) 


F.N.A.C Autoradio 
(Fédération 
Nationale d'Achat 
des Cadres ) 


2 -54 av Bosquet 7e (1) 45 51 28 15 


3 -1STer bd Gouvion (1) 45 74 57 41 


St Cyr 17e 


4-53 r Richard (12 43 67 38 OS 


Lenoir Île 


> plus d'informations 
tapez le N° choisi:... puis > ENVOI 
page suivante > SUITE 
ALL LEE LE LL EL LE LEE LL LE LL EL LL LE LL LE LL EL LL LL) 


être un nom, une adresse ou un 
téléphone, le programme se base 
sur la couleur et la position des 
éléments mais le filtrage et la 
reconnaissance des divers 
éléments n'est pas efficace à 
100%. Les mentions du type 
futur numéro OU téléphone 
de voiture en lieu et place de 
l'adresse sont difficilement 
décelables. Le programme ne 
donnera pas un résultat 
satisfaisant lorsque plusieurs 
numéros sont affectés à un 
abonné. Selon la présentation — 
très variable — la récupération se 
fera plus ou moins bien. 

Les copies d'écran Minitel 
annexées illustrent ces variations. 


Pour une page affichée sur 
l'écran du Minitel, 600 à 1000 
caractères (texte, contrôle et 
graphisme) sont émis sur la prise 
péri-informatique. Après filtrage 
des caractères inutiles pour nous, 
il peut ne rester que 4 ou 5 
adresses de 70 caractères soit 600 
ou 700 caractères éliminés. 


Précautions, 


Remarques, 
Mailing 


Le programme, pour constituer 
des adresses cohérentes, attend 
un effacement de page toujours 
suivi de l'affichage de la ville en 
haut de l'écran. 


Il faut donc mettre le programme 


fe ee ee ee ee ee ee ee D 2 DD 


MINISTERE 
PARIS PARIS 1 


> 1 Ministère Agriculture 


2 Hinistère Défense (1) 42 61 57 31 
231 bd St Germain 7e 


3 Ministère Justice (1) 42 60 13 60 


13 pl Vendome le 


Hinistère Justice 


+ 


-13 pl Vendome le (1) 42 61 80 22 
(1) 42 61 S$5 85 


LA 


—meme adresse 


> plus d'informations 
tapez le N° choisi:... puis > ENVOI 
page suivante > SUITE 
LLLLLLELELLELLLLELLELLLLELELELELELLELL LL EL ELLE EL LL EL] 


à l'écoute du Minitel avant même 
de commencer la consulation 
pour que l'Apple voit bien passer 
la ville. Sinon, rien ne sera 
enregistré. 


Dans le fichier TEXT, les 
adresses sont séparées par *** 
pour que votre programme ou 
votre traitement de texte identifie 
facilement le début et la fin. 

Pour réaliser un mailing à l'aide 
d'AppleWriter par exemple, 
remplacer les *+** par des sauts 
de page par la commande : 


CTRL-B 
CTRL-F /*#*%/.FF/A 


Spécifier un espace entre pages 
de 10 lignes si vos étiquettes sont 
distantes de 10 lignes : 


CTRL-P IP10.1 


La liaison Minitel/Apple peut Être 
vérifiée de la façon suivante : 
programme prêt à enregistrer, 
presser des touches sur le clavier 
du Minitel. À chaque caractère 
reçu par l'Apple, le premier ‘—’ 
de la ligne 8 doit se transformer 
en un ‘+’ puis en un ‘—?, etc. 


G 


Source T.POMS.1 


Assembleur ProCODE 
PUT T.POMS.2 
PUT T.POMS.3 
PUT T.POMS.4 
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Représentation d'une page de l'annuaire électronique 





(633 caractères) 

Lé LI 
2600:14 0C 00 00 1E 1F 41 45 1B 47 4D 49 4E 49 53 54 -...... AE.GMINIST Récupération 
2610:45 52 45 1F 42 45 1B 47 50 41 52 49 53 20 1B 42 -ERE.BE.GPARIS .B ; 
2620:50 41 52 49 53 20 1F 43 41 1B 44 60 12 67 1F 41 -PARIS .CA.D'‘.g.A par T Pom's 
2630:41 1B 46 2E 12 42 14 1F 30 34 18 00 00 00 OA 18 -A.F..B..04...... sans n° de 
2640:00 00 00 OA 18 00 00 00 OA 18 00 00 00 OA 18 00 -................ eZ 
2650:00 00 OA 18 00 00 00 0A 18 00 00 00 OA 18 00 00 -................ l one 
2660:00 OA 18 00 00 00 OA 18 CO 00 00 OA 18 00 00 00 -................ à 
2670:0A 18 00 00 00 OA 18 00 00 00 OA 18 00 00 00 OA -................ (206 caractères) 


2680:18 00 00 00 0A 18 00 00 00 OA 18 00 00 00 OA 18 -................ 


2690:00 00 00 0A 18 00 00 00 OA 18 00 00 00 OA 18 14 -............,... Seuls les caractères TEXT 
26A0:1F 42 66 1B 42 20 20 35 1F 44 43 1B 47 01 31 04 -.Bf.B 5.DC.G.I. F : 

26B0:20 1F 44 45 1B 47 4D 69 6E 69 73 74 16 41 65 72 - .DE.GMinist.Aer utilisables sont gardés ; les 
26C0:65 20 64 65 20 6C 61 20 1F 44 5A 1B 47 10 02 28 -—e de la .pz.c..«  CalACIÈrES ACCENUÉS SONt 


26D0:31 29 20 34 37 20 30 33 20 34 39 20 38 38 10 03 -1) 47 03 49 88.. recodés avant stockage. 
26E0:1F 45 45 1B 47 4A 75 73 74 69 63 65 1F 46 45 1B -.EE.GJustice.FE. 

26F0:42 31 33 20 20 70 6C 20 56 65 6E 64 16 43 6F 6D -Bl3 pl Vend.Com UE 

2700:65 20 20 31 65 1F 47 45 1B 44 60 12 63 1F 48 43 —e le.ce.D'.c.uc Ministère de la 
2710:1B 47 01 32 04 20 1F 48 45 1B 47 4D 69 6E 69 73 -.G.2. .HE.GMinis Justice 

2720:74 16 41 65 72 65 20 64 65 20 6C 61 20 4D 65 72 -t.Aere de la Mer 3 pl Vendome le 
2730:1F 48 5A 1B 47 10 02 28 31 29 20 34 32 20 37 33 -.Hz.G..{(1) 42 73 

2740:20 35 35 20 30 35 10 03 1F 49 45 1B 42 33 20 20 - 55 05...IE.B3 PARIS 

2750:70 6C 20 46 6F 6E 74 65 6E 6F 79 20 20 37 65 1F -pl Fontenoy 7e. XXX 

2760:4A 45 1B 44 60 12 63 1F 4B 43 1B 47 01 33 04 20 -JE.D'‘.c.KC.G.3. Lee, 

2770:1F 4B 45 1B 47 4D 69 6F 69 73 74 16 41 65 72 65 -.ke.cminist.aere Ministère de la Mer 
2780:20 64 65 20 6C 61 20 1F 4B 5A 1B 47 10 02 28 31 - de la .Kz.G..(1 3 pl Fontenoy 7e 
2790:29 20 34 35 20 36 37 20 35 35 20 34 34 10 03 1F -) 45 67 55 44... PARIS 

27A0:4C 45 1B 47 53 61 6E 74 16 42 65 1F 4D 45 1B 42 -LE.GSant.Be.ME.B 44, 

27B0:31 20 20 70 6C 20 46 6F 6E 74 65 6E 6F 79 20 20 -1 pl Fontenoy 

27C0:37 65 1F 4E 45 1B 44 60 12 63 1F 4F 45 1B 47 4D -7e.NE.D'.c.0E.cM Ministère de la 
27D0:69 6E 69 73 74 16 41 65 72 65 20 64 65 73 20 1F -inist.Aere des . Santé 

27E0:50 45 1B 47 52 65 6C 61 74 69 6F 6E 73 20 45 78 -PE.GRelations Ex 

27F0:74 16 42 65 72 69 65 75 72 65 73 1F 52 43 1B 47 -t.Berieures.rc.« 1 Pl Fontenoy 7e 
2800:01 34 04 20 2D 1F 52 46 1B 42 33 37 20 20 71 75 -.4. -.RF.B37 qu PARIS 

2810:61 69 20 4F 72 73 61 79 20 20 37 65 1F 52 SA 1B -ai Orsay 7e.RZ. xx 

2820:47 10 02 28 31 29 20 34 35 20 35 35 20 39 35 20 -G..(1) 45 55 95 





2830:34 30 10 03 14 1F 32 33 OD 18 00 00 1F 32 33 1B -40....23..... 23. Relations Extérieures 
2840:44 60 12 67 14 1F 58 51 OD 18 00 00 1F 58 51 1B -D'.g..XQ..... x2. 37 quai Orsay 7e 
2850:42 70 61 67 65 0E 20 OF 73 75 69 76 61 6E 74 65 -Bpage. .suivante PARIS 
28960:0E 20 0F 16 2E 1B 5A 1B 50 20 1B 5D 20 53 55 49 =, ....Z.P .] SUI 
2870:54 45 20 20 14 1F 41 41 11 2TE ..AA.. gites 
| 
Source T.POMS.2 . s . DEVO Len ee 
Assembleur ProCODE STROBE =  $CO010 JSR HOME 
HP = $c030 LDY #0 
fmmmmmmmmmmmmm—— COUT = SFDED ]1 LDA PASSSC, Y 
* ANNUAIRE GBASL = $26 BEQ J2 
* (c) Pom's & CP GBASCALC =  $F847 JSR COUT 
res CT VTAB = SFC22 INY 
*120587 cv - $25 BNE 1 
DSK T.POMS WNDTOP = S22 JSR BIP 
ORG 52000 WNDETM = $23 72 JMP BASIC 
CH = $24 
COMPT = $18 STROUT = $DB3A DEVOO LDA $FBB3 
FILEBUF = $1000 HOME = SFC58 CMP #6 
| BUFONLIN = $1500 TEXT = $FB39 BNE DEVOE 
BUFFIN = $1600 BASIC = $3D0 LDA S$FBCO 
PATHNAME = $1700 CLREOP = SFC42 BNE ]1 
MLI = $BF00 CLREOL = SFC9C JSR  DEUXC 
CREATE = $co LINPTR = SED24 
OPEN = $ce LASTDEV = $BF30 J1 LDA INT 
READ = $CA JSR SFE95 
WRITE = $cB DEB0O LDX #SFF LDA #7 
CLOSE = $cc TXS JSR COUT 
GETFINFO = $c4 LDA $BF00 JSR S$FE93 
ONLINE = $c5 CMP  #S4C LDA #7 
STPREFIX = $cé BEQ DEVO USR SSC | 
GTPREFIX = sc7 LDA #$7F JSR  PARASSC | 
GETTIME = s82 JSR ERREUR JSR  INITSSC 
GETEOF = SD1 UMP BASIC 





| 
Pom's n° 30 55 | 
| 








PIRE EE M ERREUR EE UNE NE Re 


DEVOE LDA #<RESET 
STA S$S3F2 
LDA #>RESET 
STA $3F3 
EOR #$A5 
STA $3F4 


LDA LASTDEV 
STA LD 

JSR MLI 

DFB ONLINE 

DA PARLDO 

BCS MENU 

LDA PATHNAME 
AND ##00001111 
STA PATHNAME 


TAY 
J1 LDA PATHNAME, Y 
INY 
STA PATHNAME, Y 
DEY 
DEY 
CPY #0 
BNE ]I1 
LDA #"/" 


STA PATHNAME+1 
INC PATHNAME 


JSR MLI 
DFB STPREFIX 
DA PARLDI1 


JMP MENU 


RECANN 
DA RECANNST 


DA IMPRIME 
DA MODPREF 
DA ONL 

DA CATAL 
DA QUITTER 


MENU LDA #21 
JSR COUT 
JSR TEXT 
JSR HOME 
JSR CLOSEFIL 


J1 LDA MESTITRE, X 
BEQ ]J2 
USR COUT 


BNE ]1 
LITPREF 
LDA #3 

STA WNDTOP 
LDA #22 


13 LDA 


CHOIX LDA #4 

USR VTAB1 

LDY #0 
MESMENU, Y 


12 


]3 


14 


15 


16 


CHOIXIND 


LIGNE 


J1 


11 

#1 

LONG 

#19 
GBASCALC 
#35 


BUFFIN 
MESCHOIX, Y 
15 


]4 
BIP 
J2 


#<ADRCHOIX 
CHOIXIND+1 


CHOIXIND 
CHOIXIND+1 
CHOIXIND+1 


16 


(ADRCHOIX) 


GBASCALC 
#39 

#" "” 
{(GBASL),Y 


J1 


——_____—_——— 


RECANNST LDA #0 
STA TELEPH 
BEQ RECANNI 


RECANN LDA #1 
STA TELEPH 
RECANNI JSR HOME 
JSR LITPREF 


LDA  LNGPATEN 
STA PATHNAME 
LDA #4 

JSR VTAB1 

JSR GFI 

BCC ]1 

USR GETRET 
JUMP MENU 


FE LDA #8 
STA CH 
LDA AUXTYPG 


SBC BLOCKUS 
LDA AUXTYPG+1 
SBC BLOCKUS+1 


JSR  LINPTR 
INC CH 


12 LDA BL,X 


13 
130 

; réception sans n° téléphone 

; réception avec n° ]3000 
]300 


; cherche place disponible sur 1301 
; de volume 


131 


; l'affiche J31A 


1310 


1311 


#6 
WNDTOP 


#39 
BAS, Y 
$7D0, Y 


130 


SAISIN1 
1300 
MENU 
CREFIC 
RECANN1 
LNGPATAN 
PATHNAME 
OUVREFIC 
J31 
ERREUR 
GETRET 
MENU 
VIDEF 
]131A 
GETRET 
MENU 
HOME 
INICOMPT 
TRAITI1 


#13 
VTAB1 


#0 
PRET, Y 
1311 
COUT 
1310 


#10 


ñ 


Mais 


%. 


limite fenetre 


; affiche message en bas 
de l'écran 


: saisie du nom de fichier 


création du fichier 


ouverture du fichier 


remet le fichier à 
0 s'il existait 


: affiche mémoire disponible 


affiche 'prêt à recevoir" 
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DR 


BOUCLE 


J10 


J11 


JT 


J2 


13 


J4 


RI1F 


12 


13 


130 


]300 


14 


15 


16 


160 


17 


| 
| 
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VTAB1 
INICOMPT 


#542 
HVILLE 

#$FF 
DP 


BOUCLE 
RAUTRE 


N 

J2 
F'INNOM 
A 

13 
FINADR 
p 

130 
FINPRE 
R1C 

F1 

RIC 

F2 


F1 
HVILLE 
1300 
BOUCLE 
]5 


PP. 
R1C 
R1C 
RVILLE 
BOUCLE 


Da 
BOUCLE 


F1 
#$44 
160 
#1 
NA 
#0 
PP 
BOUCLE 


#1 


r 


“. 


LS 


SE ce En UE ME 


Ve Ve Ve 


%. 


,. 


x 


Ve ve 


,. 


s 


Lu 


Se Ve Ve Ve 


LA 


%. 


Lu 


; si adress en cours, 


; si prénom en cours, 


initialise compteur de 


R1B 
ville présumée en 2ème ligne 
aucun caractère reçu 
122 
boucle principale : on teste 
les caractères de contrôle de 
l'affichage Minitel et on 
positionne 
des drapeaux en conséquence 
pour afficher et stocker ou 
non les carac qui suivront 
J220 
13 
14 
R1O 
si on n'a pas reçu la ville 
on n'affiche rien. 
affiche éventuellement 
UE 


reçu $1F 


si nom en cours, fin du nom 


fin adress ]2 


fin prénom R18 


; recevoir 2 caractères de plus 
; Fl et F2, qui suivent S$S1F 


si F1 = 42 (ou 43.) et F2 = 45 
on va recevoir la ville. 


< 42, on boucle 
]1 
R6O 
c'est la ville 
J1 
; évite le premier $1B $47 
avant de recevoir la ville RC 
a <> $42, ce n'est pas la vill R16 
F2 = 45 ? 
oui, on recevra nom ou adresse 
> à 45, on recevra le prénom 
autre chose, on boucle 
nom et adresse ne peuvent être 
avant ligne $45 
11 
; on recevra nom ou adresse 
on recevra prénom 12 


P 
BOUCLE 


NA 

J22 
R1C 
BOUCLE 
RIC 
#$42 
13 

AP 
]220 
#1 

A 

#0 

Pr 

NA 
BOUCLE 


BOUCLE 


RI1C 
#2 
J1 
#1 
di 
#0 
PP 
#3 
J2 
#0 
T 
PP 
BOUCLE 


DP 

J1 
AFVILLE 
TRAIT 
BOUCLE 


R18 


#34 
11 
BOUCLE 


, 


, 


% 


,. 


% 


‘ 


% 


’ 


: reçu 10, 
c'est; 


"c'est 3; 


on hésitait entre nom/adress ? 


non, on boucle 

oui, on reçoit un autre caract 
c'est 42, on recevra peut-être 
une adresse 

adresse possible ? 


c'est 47, on recevra un nom 


on attend un caract 
alors début du téléph 


aiors fin du téléph 


autre, on boucie 


: reçu S18 ou S$60 S12 
; fin d'un groupe ou d'une page 
; réinitialise les drapeaux 


reçu $S60, attend 1 caract 


; si c'est 12, fin du groupe 


nom + adresse + tél + comment 


; sinon on boucle 


; ville non reçue 


; reçu $16, alphabet G2 


si carac = $4x, c'est une 
minuscule accentuée ou ç 


ce n'est pas un accent 


: cherche dans la table 








si 








FORGE AN 


R162 


Ju 


J2 
13 


RAUTRE 


J1 


FINNOM 


J1 


FINADR 


J1 


FINPRE 


11 


RVILLE 


]4 


15 


ACTI,Y 
RAUTRE 


C1 
RIiC 
c2 


#0 
c1 
ACT2, Y 
72 


c2 
ACT2,Y 
J3 


ACT2, Y 
RAÛTRE 


#42 
14 
BOUCLE 


#520 
J1 
CRECU 
TELEPH 


NA 

J1 
CRECU 
CRECU1 
#57F 


#0 
VILLE 
R1C 
#$1F 
16 
#$1B 
15 
VILLE 
VILLE 
VILLE, Y 
#30 
]4 

#0 

v 


; charge carac correspondant 


; avant traitement normal 

; on attend le deuxième 

; Caractère 
16 

; compare le premier COUT1 

; compare le deuxième AFVILLE 
12 
]1 
R1C 

; opérations logiques sur 

; les drapeaux pour décider 

; si on affichera ou non 

; le caractère reçu. 
s je 
SVM 
TRAIT 
]1 

; prénom possible 

; adresse possible 
TRAIT1 

; si on n'a pas reçu de caract 

; il n'y a pas de prénom 
J100 


LI 


Li 


stocke ville 


ce n'était pas la ville 


BOUCLE 
#543 
HVILLE 
RIF 


#$80 
STOCK 
COUT 


VILLE 
J2 


RECOIT 
]1 

KBD 
STROBE 
##11011111 
#"s" 

SVM 

#$9B 
R1C 
SAUVEMEM 
#SFF 


MENU 


SAUVEMEM 
#$SFF 


DR 


POI TE, : 


Lu 


CE TS 


r 


ville reçue 


ville en ligne 3 et non 2 
car la rubrique occupait 2 
lignes 


‘’poidsforise' le caractère 
stockage et affichage 


; affiche et stocke la ville 


; reçoit 1 caractère 


retenue = 0 : pas reçu 
une touche pressée ? 


convertit en majuscule 

si S, on sauvegarde 

et on continue à enregistrer 
si ESC, on sauvegarde et 

on termine 


; a-t-on reçu des caractères ? 


efface fin écran 


met un séparateur entre deux 
adresses 


affiche mémoire disponible 
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J101 


TRAIT2 
STOCK 


11 


72 


JFIN 


CROUT 


J1 


SAUVEMEM 


]1 


INICOMPT 


CRECU 
CRECU1 
DP 
HVILLE 
VR 
TELEPH 
RY 
CARAC 
C1 

C2 

BL 


LDA #"/" 
JSR COUT 
LDA # LLP 
JSR COUT 
LDA CH 
BNE ]101 
USR CROUT 
LDA #10 
UMP  VTAB1 
UMP CROUT 
STA CARAC ; stocke les caractères reçus 
STY RY :; et filtrés 
LDA COMPT 
CMP  #S$FF ; mémoire saturée ? 
BNE j1 
LDA COMPT+1 
CMP #$595 
BEQ JFIN soui, on enregistre 
INC COMPT 
BNE J2 
INC COMPT+1 
LDA CARAC 
LDY #0 
STA  (COMPT),Y 
LDY RY 
RTS 
JUMP SVM 
LDA CRECUI 
CMP  #$8D 
BNE ]1 
RTS 
LDA #$8D ; stocke un retour chariot 
STA CRECU] 
JSR STOCK 
USR CLREOL ; efface fin de la ligne 
UMP  $DAFB ; crout 
LDA #$8D 
STA $3000 
SEC 
LDA  COMPT+1 
SBC #$30 
STA LAS+1 
LDA COMPT 
STA LAS 
UJSR EF 
BCC 1 
USR ERREUR 
USR GETRET 
RTS 
LDA #0 
STA COMPT 
LDA #$30 
STA COMPT+1 
RTS 
DS 40 
DS 1 
DS 1 
DS 1 
DS 1 
DS 1 
DS À 
DS 1 
DS 1 
DS 1 
DS 1 
DS 1 
DS ft 
DS 1 
DS 1 
DS 1 
1 
1 
1 
1 


ASC "blocs libres sur ce disque" 


DFB O0 


BAS ASC "<ESC> Sauvegarde/Fin <S> Sauvegarde 

PRET ASC ”" Fichier TEXT créé LS 
ASC " Pret pour consultation de l'annuaire #" 
DFB O0 


IMPRIME HOME 


LITPREF 


]1 JSR SAISIN2 ñ 
BCC ]2 

MENU 

LNGPATHN 

PATHNAME 

OUVREFIC ; 

BCC 3 

ERREUR 

GETRET 

IMPRIME 


]2 LDA 


]20 


13 JSR GFI 2 


120 ; 


FILETYG 

CMP #4 ’ 
138 

#$1A ; 
]13B 

#57C ; 
120 

]3B LDA #1 2 
LAS 

LDA #0 

LAS+1 


LITFIC ? 
BCC ]j4 

#$4c Fe 
FINIMPRI 
ERREUR 
GETRET 

MENU 


130 


$3000 

#$s80 

#$8D 7 
BNE j5 


14 LDA 


#73 g 
NBCR ; 
$c100 
NBCR 
BPL ]6 
#$8D 
$c100 
#79 
NBCR 
KBD 
STROBE 
#59B 
130 
#58D 
$c100 
$SFE93 
MENU 


15 USR 


Ve Ve de 


16 LDA 


FINIMPRI LDA 


NBCR DS 1 


Source T.POMS.3 
Assembleur ProCODE 


QUITTER JSR TEXT 


saisie du nom de fichier 


ouverture du fichier 


get file info pour type de 
fichier 

fichier TEXT ? 

fichier de texte AppleWorks ? 


non, erreur 


ne lire qu'un caractère 


le lire 


fin de fichier ? 


ést-ce un CR 


on n'imprimera pas plus de 
80 caractères par ligne. 
{utile si ce n'est pas un 
fichier d'adresse qui est 
imprimé) 





SAISINI JSR SAISP 


LDY #>NOMFICH 
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LDA 
BNE 


SAISIN2 JSR 
LDY 
LDA 


SAISIN3 JSR 
LDA 
STA 
LDA 
JSR 
JSR 
BCC 
RTS 
J1 LDY 
BNE 
JSR 
BCS 
]2 STY 
STY 
13 LDA 
INY 
STA 
DEY 
DEY 
BPL 
CLC 
RTS 


SAISP LDA 
STA 
JSR 
LDA 
STA 
RTS 


NOMFICH ASC 


#<NOMFICH 
SAISIN3 


SAISP 
#>NOMFICH1 
# <NOMFICH1 


STROUT 
#38 

LONG 

#9 
GBASCALC 
INPUT 

J1 


TPS 

J2 

BIP 
SAISINI1 
PATHNAME 
LNGPATAN 
BUFFIN, Y 


PATHNAME, Y 


13 


#7 
Cv 
VTAB 
#0 
CH 


"Nom du fichier TEXT à créer :" 


DFB 
NOMFICHI ASC 


"Nom du fichier TEXT à imprimer :" 


DFB 


]1 DEY 


INCLAV  LDA 


INCLAVI LDA 


111 DEX 


0 


0 


INCLAV 
(GBASL), Y 
J1 


# m] " 
(GBASL),Y 


(GBASL),Y 
#1 
(GBASL),Y 
#$39 


]11 
KBD 
INCLAVI 
STROBE 


#$9B 
INESC 
#$88 
INRETOUR 
#$FF 
INRETOUR 
#$8D 
INVALID 
LONG 
INERR 





CMP # "” ä "” 
BCC INERR 
CMP. #"/" 
BEQ SLASH 
CMP # "A "” 
BCC CHIFFRE 


AND ##11011111 


CMP #$DB 
BCS INERR 
BCC INLETTRE 


SLASH CPY #0 
BEQ INLETTRE 
BNE CHIFFRE 


CHIFFRE CMP #":" 
BCS INERR 
CPY #0 
BEQ INERR 

CHIFFREL TAX 


LDA (GBASL),Y 


CMP g/" 
BEC INERR 


BMI INLETTRE 


INERR JSR BIP 
BCS INCLAVI 


INESC LDY LONG 
LDA #" "” 
]1 STA (GBASL),Y 


BPL ]1 
LDA #0 
STA BUFFIN 


INRETOUR LDA POSC 
BEQ INERR 
CMP LONG 
BNE INRI 
LDA go" 
BNE  INR2 
INR1 LDA #7." 
INR2 STA (GBASL),Y 


DEC POSC 
JMP  INCLAV 


INLETTRE STA (GBASL),Y 
INC POSC 


JMP  INCLAV 


INVALID STY TPS 
LDA # LL LE 

J0 STA (GBASL),Y 
CPY LONG 
BEQ J1 


BNE JO 

]1 LDY TPS 
LDA #0 
STA BUFFIN,Y 
BMI ]3 

12 LDA  (GBASL),Y 
STA BUFFIN,Y 


BPL J]2 





10 LDA CMD, Y 


11 JSR S$SBE03 


JTO JSR ERREUR 

IT JSR GETRET 
JSR HOME 
USR LITPREF 
JMP CHOIX 


* CHERCHE DATE/HEURE 
* CREE FICHIER 


CREFIC LDA $CO061 


STA ACCESBT 
LDA #4 

STA FILETYPE 
LDA #0 

STA AUXFLTP 
STA AUXFLTP+1 
LDA #1 

STA STORAGE 


JSR CREFICH 


BEC "Ji 
BIT POMMES 
BMI ]2 
JSR ERREUR 
USR GETRET 
SEC 

J1 RTS 

]12 CLC 
RTS 


CREFICH JSR MLI 
DFB GETTIME 
DA 0 
LDY #3 

hp à LDA SBF93,Y 
STA DATECRE, Y 


BPL ]1 


JSR MLI 
DFB CREATE 
DA PARLST 


GETLONG JSR MLI 
DFB GETEOF 
DA PAREOF 
BCC jJ1 
JSR ERREUR 


OUVREFIC JSR 
DFB 
DA 
BCC 


MLI 
OPEN 
PARLSTO 


JA 
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JSR ERREUR 
1 RTS 


EF LDA REFNUM 
STA REFNUMW 
JSR MLI 
DFB WRITE 
DA PARLSTW 
BCC ]1 
JSR ERREUR 


LITFIC LDA REFNUM 
STA REFNUMW 
JSR MLI 
DFB READ 
DA PARLSTW 


VIDEF LDA REFNUM 
STA  REFNUM7 
JSR MLI 
DFB SETEOF 
DA PARLST? 
BCC ]1 
JSR ERREUR 


CLOSEFIL LDA REFNUM 
STA  REFNUMC 
JSR MLI 
DFB CLOSE 
DA PARLSTC 


ONL JSR HOME 
LDY  #>MESONL 
LDA  #<MESONL 
JSR  STROUT 
JSR MLI 
DFB ONLINE 
DA PARLSTN 
BCC ]0 
JSR ERREUR 
10 LDA #15 
STA CNT 
ONLINED LDA CNT 
ASL 


LDA BUFONLIN, Y 
STA LNG 

AND ##00001111 
BEQ ERR 

LDX #0 

1G LDA MESONO, X 

BEQ JH 

JSR COUT 


BNE ]G 
14 LDA LNG 


AND ##00000111 
ORA ##10110000 
JSR COUT 
LDX #0 

JE LDA MESON1,X 
BEQ JF 
JSR COUT 


BNE JE 
1F LDA #"l" 
BIT LNG 
BPL ]1 
LDA #"2" 
J1 JSR COUT 
LDA #"" 
JSR COUT 
LDA LNG 
AND #$F 
STA LNG 
LDA #"/" 
JSR COUT 
AFF INY 
LDA BUFONLIN, Y 
ORA ##10000000 
USR COUT 
DEC LNG 
BNE AFF 
LDA #$8D 
UJSR COUT 
ERR DEC CNT 
BPL ONLINED 
JSR GETRET 
VADEB JSR HOME 
JSR LITPREF 
JUMP CHOIX 


GFI JSR MLI 
DFB GETFINFO 
DA PARLSTG 
BCC ]1 
JSR ERREUR 


MODPREF JSR HOME 
JSR LITPREF 
MODPR LDA #7 
STA CV 
JSR VTAB 
LDA #0 
STA CH 
LDY  #>MESMOD 
LDA  #<MESMOD 
JSR STROUT 
LDA #38 
STA LONG 
LDA #9 
JSR GBASCALC 
INC GBASL 
JSR INPUT 
BCS OKCH 
LDY TPS 
BNE MODO 
JSR BIP 
BEQ MODPR 
MODO STY PATANAME 
INC PATHNAME 
BEQ MODMLI 
DEC  GBASL 
12 LDA  (GBASL),Y 


STA PATHNAME, Y 


BPL J]2 


MODMLI JSR MLI 
DFB STPREFIX 
DA PARLSTCP 
BCC OKCH 


JSR S$SDAFB 


JSR ERREUR 

JSR GETRET 

JMP  MODPREF 
OKCH JMP  VADEB 
PARLSTCP DFB 1 

DA PATHNAME 


LITPREF JSR MLI 
DFB GTPREFIX 
DA PARLSTCP 
BCC j000 
JSR ERREUR 


000 LDA #3 
STA CV 
JSR VTAB 


LDX #0 
]10 LDA MESSPR, X 
BEQ j00 
JSR COUT 
INX 
BNE ]0 


100 LDA PATHNAME 
STA LNGPATHEN 
LDX #1 

]1 LDA PATHNAME, X 
ORA ##10000000 | 
JSR COUT 





DEC PATHNAME 
BNE J1 | 
JMP  SDAFB | 


* RECEVOIR UN CARAC DANS L'ACC 
* CARRY CLEAR SI PAS DE CARACT 


RECOIT BIT DINT 
BMI RECOIT? 


LDY REGY 

LDA S$C089,Y 
AND ##00001000 
BNE ]1 


11 LDA ##00000110 
EOR S$S428 
STA $428 
LDA S$CO88,Y 
AND ##01111111 


RECOIT/7 JSR PARASSC 
LDA #1 
JSR STATSSC 
BCS OK 
RTS 


OK LDA ##00000110 
EOR $428 
STA $428 





Pom's n° 30 


61 








JSR PARASSC CMP CODERR USR STROUT 
JSR READSSC BEQ 0 
AND ##01111111 , CMP #0 J1 BIT KBD 
SEC BNE ]1 BPL 1 
RTS 
]J0 INY BIT STROBE 
PARASSC LDX REGX LDA ERREURS, Y LDA KBD 
LDY REGY BPL ]0 CMP #$D 
RTS J2 JSR COUT BEQ ]3 
INY CMP #S$1B 
fm LDA ERREURS, Y BEQ J4 
# ERREUR BMI ]2 JSR BIP 
LE LDATENET BEST 
JSR COUT 
ERREUR STA CODERR LDA #$21 73 JSR ]5 
JSR SDAFB JSR COUT CLC 
USR SDAFB SEC RTS 
LDA #0 RTS 
STA CH J4 JSR ]5 
LDA #20 dns iesses SEC 
STA CV * ATTEND RETURN (OU ESC) RTS 
JSR VTAB fm 
LDA #S21 75 LDA #20 
GETRET JSR SDAFB USRANTAS 
JSR COUT LDA #21 JSR CLREOP 
EDB, Spn STA CV RUE 
JSR COUT JSR VTAB 
JSR BIP LDA #0 MESRET ASC" 
LDY #$FF STA CH *** Appuyez sur <RETURN> **#" 
J1 INY LDY #>MESRET 
LDA ERREURS, Y LDA #<MESRET DFB O0 
Source T.POMS.4 sa 
Assembleur ProCODE CES 
* MESSAGES D'ERREUR 
fommm—_—_——…— nm me me me me ame me ee me me mms me 
* BIP 
fmmmmmmmmmmmmmmm— ERREURS DFB 3,8,$27,S$28,S$2F,S$5SA,$4E 
ASC "Erreur d'accès disque" 
BIP TYA DFB 6,7,$545,546 
PHA ASC "Volume/fichier introuvable" 
TXA DFB 4,52B 
PHA ASC "Disque protégé" 
LDY #$40 DFB $40,$44 
BIPi TYA ASC "Nom incorrect" 
ROR DFB 17,548,5$49 
TAX ASC "Disque/directory saturé" 
BIP2 DEX DFB $4E 
BNE BIP2 ASC "Protégé en lecture" 
à 2 (5 SR à DFB S$7C 
DEY ASC "Type TEXT seulement..." 
BNE BIP1 DFB $7D 
SEC ASC "Volume saturé" 
PLA DFB S$S7F 
TAX . ASC "ProDOS est indispensable" 
PLA DFB $47 
TAY ASC "Ce nom de fichier existe déjà" 
RTS DFB O0 
ASC "Erreur ???" 
nr éntr DFB 
* RESET 
RSA MA aile Un collaborateur de 
* INTERFACE //c Û 
RESET LDA #21 fmmmemmemmssse Pom S) vend neuf, 
JSR COUT pour cause de 
USR TEXT DEUXC LDA 
JSR HOME STA eouble emploi, UN 
JSR CLOSEFIL LDA 
STA Moniteur, un siand ef 
LDY #0 LDA 
RESET1 LDA MESRESI,Y s STA une Rousse re le jou 
BEQ RESET2 LDA POUr Apple [Je = @u 
RESET3 USR COUT STA © 
INY STA prix tar Apple —35%. 
BNE RESETI LDA 
STA 
RESET2 USR GETRET STAÀ Û 
Fe a à es S'adresser à la 
LDA revue. 
VTAB1 STA CV STA 
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SEC 
UMP $C311 


VERSSC LDY #7 
VERIFO TYA 
ORA #$CO 
STA VERIF+2 
VERIF LDA $CO0C 
CMP #$31 
BEQ ]1 
DEY 
BNE VERIFO 
SEC 
RTS 
ot STE INT 
TYA 
PHA 
ORA #$C0 
STA SSCINIT+] 
STA SSCREAD+1 
STA SSCSTAT+1 
STA SSCi+1 
STA J]40+2 
STA J]2+2 
STA J]3+2 
STA J]4+2 
STA REGX 
PLA 
ASL 
ASL 
ASL 
ASL 
STA REGY 
J2 LDA $CO0D 
STA SSCINIT 
13 LDA  $CO0E 
STA SSCREAD 
14 LDA S$C010 
STA SSCSTAT 
LDY #0 
STY DINT 
J40 LDA $CO000 
CMP #$2C 
BEQ ]J5 
DEC DINT 
75 CLC 
RTS 
ssC UMP  (SSCI) 
INITSSC UMP  (SSCINIT) 
READSSC JMP  (SSCREAD) 
STATSSC JMP (SSCSTAT) 
SSCINIT DA $0000 
SSCREAD DA $0000 
SSCSTAT DA $0000 
Sssc1 DA  $0000 


MESCHOIX ASC 


MESMENU  DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
dfb 
ASC 
DFB 





"RLIMVCQ" 


$8D, $8D 

"<R>ecevoir annuaire avec n{ de téléphone" 
$8D 

"<L>e recevoir sans n{ de téléphone" 
$8D, $8D 

"“<I>mprimer un fichier" 

S8D, $8D 

"<M>odifier le préfixe" 

$8D, $8D 

"<V>olumes en ligne" 

$8D, $8D 

"<C>atalogue" 

$8D, $8D 
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MESTITRE 


POMS 


PASSSC 


CMD 
PP 


MESONL 


MESONO 


MESONI1 
MESSPR 


MESMOD 


MESRES1 


DINT 
POSC 
LONG 
TPS 
PARLST 
ACCESBT 
FILETYPE 
AUXFLTP 


STORAGE 
DATÈCRE 


PAREOF 


INT 
LNGPATAN 


CODERR 


PARLSTO 


REFNUM 


PARLSTG 


ASC 
DFB 
ASC 
DFB 


ASC 
ASC 
DFB 


ASC 


ASC 
DFB 


ASC 
DFB 
DS 


DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 


ASC 
DFB 


ASC 
DFB 
ASC 
DFB 


DFB 
ASC 
DFB 
ASC 
INV 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 


ps 
DS 
Ds 
DS 


DFB 
DA 
DS 
Ds 
Ds 
DS 


DFB 


DFB 





"<Oouitter" 

S8D 

LA Votre choix :" 
0 


“Annuaire Electroniqu" 
re Pom 's LL 
$8D, 0 


"4 FE PON TRE 


"La carte SuperSérie est nécessaire..." 
$8D, 0 


"CAT" 
$8D 
1 


S8D 

"Volumes en ligne :" 
$8D 

S8D, $8D, 0 

VECrEUT 

0 

LOGE" 

0 


"Préfixe " 
[e) 


"Nouveau préfixe :" 
$8D, $8D 

n/" 

0 


$8D 


" " 


$8D 

" " 

s T_POM'S VAIOUIT 

S8D, S8D, S8D 

y {c) Pom's, CP, JLB 12/5/1987" 
$8D, S8D, S8D, $8D 

‘4 Un programme Pom's," 

S8D, $8D 

la revue des Apple" 
S8D, S8D, S8D 

4 Revue Pom's : (1) 39 51 24 43" 
$S8D, $8D 








0 


ka ba ba ba 


7 ; paramètres pour create 


2 ; paramètres pour geteof 


3 ; paramètres pour open 
PATHNAME 

FILEBUF 

1 


SA ; paramètres pour getfileinfo 








DA PATHNAME DFB $2D,"*" 
DS 1 ; lect/écrit/renam... DFB $2E,"> 
FILETYG DS 1 ; type de fichier DFB $2F,"v 
AUXTYPG DS 2 ; param auxiliafre (lng par ex) DFB S30,"I/ 
DS 1 ; type de stockage DFB $31,"+ 
BLOCKUS DS F- ; nb de blocs affectés DFB $38,"/ 
DS 8 DFB $3C,"/ 
DFB S$3D,"/ 
PARLSTW DFB 4 DFB $3E,"/ 
REFNUMW DS Æ DFB $6A,"* 
DA $3000 DFB S$7A,"* 
LAS DS 2 DFB $7B,"B 
DS 2 DFB O0 
PARLST? DFB 2 
REFNUM?7 DS 1 ACT2 DFB $41,S$65, "è 
DFB 0,0,0 DFB $42,$65,"é 
DFB $43,$65,"e 
PARLSTC DFB 1 DFB $48,$65,"e 
REFNUMC DFB O0 PARLDO DFB 2 DFB $41,$61,"à 
LD DS 1 DFB $43,$61,"a 
PARLSTN DFB 2 DA PATHNAME DFB $48,$S61,"a 
DFB O0 PARLD1 DFB 1 DFB $43,$69,"1 
DA BUFONLIN DA PATHNAME DFB $48,$69,"1 
DFB $43,$6F, "o 
CNT DS d'à ACT1 DFB S23,"# DFB $48,$6F, "o 
LNG DS 1 DFB S$24,"S DFB $41,$75,"ù 
DFB S26,"# DFB $48,5$75,"u 
REGX DS 7 DFB S$27,"] DFB $4B,$63,"ç 
REGY DS 1 DFB'  S$S2C,"< DFB O0 
; . A 
Récapitulation T.POMS 22B0:21 20 4A 24 C9 42 DO 15 2438:60 AO 01 B9 41 25 20 2B 
22B8:AD 6E 25 F0 0D A9 01 8D 2440:24 C8 CC 41 25 DO F4 4C 


Après avoir saisi cette récapitulation 22C0:6F 25 A9 00 8D DB 2D 8D 


sous moniteur, vous la sauvegarderez par : 
BSAVE T.POMS, A$2000, L4033 


2000:A2 
2008:F0 
2010:D0 
2018:58 
2020:09 
2028:F2 
2030:c9 
2038:03 
2040:95 
2048:93 
2050:3C 
2058:F2 
2060:A5 
2068:6D 
2070:B0 
2078:00 
2080:00 
2088:A9 
2090:20 
2098:20 
20A0:29 
20A8:15 
20B0:58 
20B8:36 
20C0:00 
20C8:FD 
20D0:03 
20D8:04 
20E0:2D 
20E8:04 
20F0:2C 
20F8:F5 
2100:20 
2108:26 
2110:A0 
2118:F0 
2120:B0 
2128:F0 
2130:88 
2138:F8 
2140:10 
2148:F0 
2150:58 


FF 9A 
08 A9 
03 20 
FC A0 
20 ED 
2A 4C 


FC 20 


AD 
7F 
43 
00 
FD 
DO 
21 
2C 
07 
07 
A7 
2B 
03 
00 


00 
20 
2C 


BF 
43 


cg 
2A 
16 
2D 
F5 
B3 
FB 
2F 
FD 
2C 
0A 


22C8:6D 25 4C F7 21 C9 47 DO 
22D0:0D A9 01 8D 71 25 A9 00 
22D8:8D DB 2D 8D 6D 25 4C F7 
4c 2158:8D 00 17 A9 04 20 2B 2B 22E0:21 20 4A 24 C9 02 DO OA 
4c 2160:20 58 29 90 06 20 8E 2A 22E8:A9 01 8D 70 25 A9 00 8D 
20 2168:4C A7 20 A9 08 85 24 22F0:DB 2D C9 03 DO 08 A9 00 
F0 2170:48 2F 38 ED 4B 2F AA 22F8:8D 70 25 8D DB 2D 4C F7 
20 2178:49 2F ED 4C 2F 20 24 2300:21 A9 00 8D 6B 25 8D 71 
FB 2180:E6 24 A2 00 BD 7C 25 2308:25 8D 6F 25 8D 6D 25 8D 
DO 2188:06 20 ED FD E8 DO F5 A9 2310:70 25 8D 6C 25 8D 6E 25 
20 2190:06 85 22 A0 27 B9 97 25 2318:8D DB 2D 2C 74 25 30 06 
20 2198:99 DO 07 88 10 F7 20 A1 2320:20 33 24 20 72 24 4C F7 
20 21A0:26 90 03 4C A7 20 20 1F 2328:21 20 4A 24 C9 12 DO 03 
8D 21A8:28 B0O A4 AD 3B 2F 8D 00 2330:4C 01 23 4C F7 21 A9 00 
49 21B0:17 20 78 28 90 09 20 43 2338:8D 76 25 4C 01 23 20 4A 
8D 21B8:2A 20 8E 2A 4C A7 20 20 2340:24 AA 29 FO C9 40 FO 18 
2F 21C0:A3 28 90 06 20 8E 2A 4C 2348:8A A0 00 D9 73 2F F0 09 
8D 21C8:A7 20 20 58 FC 20 38 25 2350:C8 C8 CO 22 DO F5 4C F7 
99 21D0:20 96 24 A9 OD 20 2B 2B 2358:21 C8 B9 73 2F 4C 8D 23 
F3 21D8:A0 00 B9 BF 25 F0 06 20 2360:8E 7A 25 20 4A 24 8D 7B 
17 21E0:ED FD C8 DO F5 A9 0A 20 2368:25 A0 00 AD 7A 25 D9 96 
A7 21E8:2B 2B 20 38 25 A9 42 8D 2370:2F D0 10 C8 AD 7B 25 D9 
64 21F0:75 25 A9 FF 8D 74 25 20 2378:96 2F DO 08 C8 B9 96 2F 
A9 21F8:4A 24 C9 1F F0 32 C9 1B 2380:4C 8D 23 C8 C8 C8 C0 2A 
20 2200:D0 03 4C A6 22 C9 10 DO 2388:D0 El 4C F7 21 C9 20 90 
20 2208:03 4C El 22 C9 18 DO 03 2390:2E 8D 72 25 AD 77 25 2D 
A2 2210:4C 01 23 C9 OC DO 03 4C 2398:70 25 8D 70 25 AD 6C 25 
ED 2218:36 23 C9 60 DO 03 4C 29 23A0:2D DB 2D OD 71 25 OD 6F 
A9 2220:23 C9 16 DO 03 4C 3E 23 23A8:25 0D 70 25 OD 6D 25 F0 
A9 2228:AE 76 25 F0 CA 4C 8D 23 23B0:0E AD 72 25 8D 73 25 29 
A7 2230:AD 71 25 F0 03 20 C2 23 23B8:7F 8D 74 25 20 2B 24 4C 
A9 2238:AD 6F 25 F0 03 20 D8 23 23C0:F7 21 2C 74 25 30 03 20 
BF 2240:AD 6C 25 FO 03 20 E6 23 23C8:04 25 A9 00 8D 71 25 A9 
DO 2248:20 4A 24 8D 69 25 20 4A 23D0:01 8D DB 2D 8D 6E 25 60 
13 2250:24 8D 6A 25 AD 69 25 CD 23D8:2C 74 25 30 03 20 04 25 
85 2258:75 25 BO 03 4C F7 21 DO 23E0:A9 00 8D 6F 25 60 2C 74 
27 2260:1D AD 6A 25 C9 45 DO 13 23E8:25 30 03 20 04 25 A9 00 
2C 2268:A9 01 8D 6B 25 A9 00 8D © 23F0:8D 6C 25 60 A9 00 8D 41 
2A 2270:DB 2D 20 4A 24 20 4A 24 23F8:25 20 4A 24 C9 1F F0 23 
98  2278:4C F4 23 4C F7 21 AD 6A 2400:C9 1B FO O0D EE 41 25 AC 
21 2280:25 C9 45 FO 05 BO 17 4C 2408:41 25 99 41 25 CO 1E DO 
47  2288:F7 21 AD 69 25 C9 44 90 2410:E8 A9 00 8D 6B 25 A9 42 
88 2290:0A A9 01 8D 6D 25 A9 00 2418:8D 75 25 A9 01 8D 76 25 
25 2298:8D DB 2D 4C F7 21 A9 01 2420:4C F7 21 A9 43 8D 75 25 
20  22A0:8D 6C 25 4C F7 21 AD 6D 2428:4C 30 22 09 80 20 DE 24 
2F 22A8:25 DO 06 20 4A 24 4C F7 2430:4C ED FD AD 41 25 DO 01 


3888 


2448:04 25 
2450:00 C0 
2458:D3 FO 
2460:1A 25 
2468:60 20 
2470:EA 21 
2478:04 25 
2480:DE 24 
2488:24 88 
2490:24 A0 
2498:20 2B 
24A0:19 A9 
24A8:F8 A9 
24B0:20 ED 
24B8:AA A9 
24C0:A9 A0 
24C8:ED FD 
24D0:24 DO 
24D8:4C 2B 
24E0:25 8C 
24E8:D0 06 
24F0:E6 18 
24F8:25 A0 
2500:60 4C 
2508:8D DO 
2510:25 20 
2518:FB DA 
2520:A5 19 
2528:18 8D 
2530:06 20 
2538:A9 00 
2540:60 00 


2548:00 00 
2550:00 00 


2558:00 00 
2560:00 00 
2568:00 00 
2570:00 00 
2578:00 00 
2580:F3 A0 
2588:A0 F3 
2590:E4 E9 
2598:C5 D3 
25A0:F6 ES 
25A8:C6 E9 
25B0:A0 BC 
25B8:F6 E5 





Pom's n° 30 





25C0:A0 

25C8:A0 
25D0:F2 
25D8:F2 
25E0:A0 
25E8:A0 
25F0:F5 
25F8:EC 
2600:E4 

2608:F5 

2610:20 

2618:26 
2620:2F 
2628:09 
2630:10 
2638:47 
2640:F0 
2648:8D 
2650:20 
2658:33 
2660:A7 
2668:8D 
2670:20 
2678:A9 
2680:97 
2688:C9 
2690:C1 

2698:20 
26A0:03 
26A8:D0 
26B0:0B 
26B8:2F 
26C0:27 
26C8:05 
26D0:17 
26D8:99 
26E0:60 

26E8:A9 
26F0:A0 

26F8:E9 
2700:A0 

2708:A0 

2710:F5 

2718:F2 

2720:A0 

2728:F2 

2730:2F 
2738:04 

2740:26 

2748:39 
2750:F0 

2758:C9 
2760:C9 
2768:2E 
2770:0C 
2778:DB 
2780:45 
2788:00 
2790:C9 
2798:F2 
27A0:A0 

27A8:8D 
27B0:F0 

27B8:A0 

27C0:CE 
27C8:EE 
27D0:28 

27D8:2F 
27E0:2F 
27E8:08 
27F0:F8 
27F8:B9 
2800:F0 
2808:C9 
2810:20 
2818:FC 
2820:61 
2828:A9 
2830:2D 
2838:2F 





A0 A0 
A0 C6 
A0 D4 
FB FB 
A0 A0 
DO F2 
F2 A0 
F4 El 
E5 A0 
El E9 
58 FC 
90 03 
8D 00 
20 43 
26 20 
2F C9 
04 A9 
59 2F 
96 28 
20 43 
20 AD 
p0 05 
00 C1 
8p 20 
26 AD 
9B DO 
20 93 
39 FB 
20 El 
07 20 
20 3A 
A9 09 
90 01 
20 F2 
8C 3B 


00 17. 


A9 07 
00 85 
E4 F5 
E5 F2 
C0 A0 
BA 00 
A0 E6 
A0 D4 
E9 ED 
A0 BA 
AC 27 
91 26 
B1 26 
CA DO 
2010 
88 F0 
8D F0 
C9 AE 
c9 C1 
B0O 1C 
DO 08 
FO 0C 
AF F0 
2A B0 
91 26 
00 16 
E5 CD 
DO 02 
26 2F 
26 2F 
2F A9 
F0 03 
A9 00 
B1 26 
18 60 
D7 2D 
03 C8 
06 F0 
43 2A 
20 C7 
co 0D 
C3 8D 
2F A9 
2F A9 


Pom's n° 30 


2840:53 
2848:08 
2850:60 
2858:00 
2860:2F 
2868:29 
2870:35 
2878:20 
2880:20 
2888:56 
2890:90 
2899:2F 
28A0:55 
28A8:2F 
28B0:03 
28B8:8D 
28C0:2F 
28C8:DC 
28D0:64 
28D8:0F 
28E0:0A 
28E8:69 
28F0:BD 
28F8:E8 
2900:4A 
2908:FD 
2910:20 
2918:2C 
2920:ED 
2928:69 
2930:AF 
2938:09 
2940:D0 
2948:68 
2950:58 
2958:20 
2960:20 
2968:C7 
2970:FC 
2978:1B 
2980:2F 
2988:20 
2990:D0 
2998:00 
29A40:26 
29A8:88 
29B0:29 
29B8:20 
29C0:29 
29C8:00 
29D0:43 
29D8:FC 
29E0:20 
29E8:17 
29F0:17 
29F8:00 
2A00:25 
2A08:89 
2A10:A9 
2A18:B9 
2A20:3C 
2A28:01 
2A30:28 
2A38:29 
2A40:6B 
2A48:DA 
2A50:A9 
2A58:21 
2A60:FD 
2A68:30 
2A70:00 
2A78:FA 
2A80:30 
2A88:21 
2A90:DA 
2A98:A9 
2AA0:20 
2AA8:2C 
2AB0:F0 
2AB8:2A 


28 
20 
18 
A0 
88 
2F 
2F 
00 
43 
2F 
03 
8D 
2F 
20 
20 
63 
60 
20 
2F 
8D 
0A 
2F 
05 
DO 
4A 
A2 
ED 
69 
FD 
2F 
20 
80 
F2 
2F 
FC 
00 
43 
29 
A9 
20 
A9 
2C 
05 
17 
B1 
10 
90 
43 
4c 
BF 
2A 
A2 
ED 
8D 
09 
17 
2F 
co 
06 
88 
2A 
60 
04 
7F 
2F 
20 
14 
20 
20 
2B 
DO 
20 
F7 
20 
A9 
00 
3A 
10 
03 
B0 


90 
43 
60 
03 
10 
60 
90 
BF 
2A 
20 
20 
56 
60 
00 
43 
2F 
20 
3A 
90 
68 
0A 
29 
2E 
F5 
29 
00 
FD 
2F 
A9 
29 
ED 
20 
A9 
10 
20 
BF 
2A 
A9 
00 
3A 
09 
27 
20 
EE 
26 
F6 
0E 
2A 
4F 
C7 
A3 
00 
FD 
3B 
80 
DO 
30 
29 
4D 
co 
A9 
A9 
20 
38 
60 
FB 
85 
ED 
F2 
CD 
F3 
ED 
A9 
ED 
15 
85 
DB 
co 
cg 
E8 


2AC0:20 
2AC8:22 
2AD0:A0 
2AD8:F0 
2AE0:F5 
2AE8:D5 
2AF0:AA 
2AF8:98 
2B00:C0 
2B08:A8 
2B10:39 
2B18:A0 
2B20:ED 
2B28:4C 
2B30:03 
2B38:F2 
2B40:E1 
2B48:F3 
2B50:D6 
2B58:E9 
2B60:EE 
2B68:EC 
2B70:F5 
2B78:E7 
2B80:E9 
2B88:F4 
2B90:F5 
2B98:F4 
2BA0:F5 
2BA8:FB 
2BB0:ES5 
2BB8:F9 
2BC0:A0 
2BC8:EE 
2BD0:EC 
2BD8:F5 
2BE0:CF 
2BE8:EE 
2BF0:E1 
2BF8:EE 
2C00:E9 
2C08:F8 
2C10:EA 
2C18:F2 
2C20:8D 
2C28:A9 
2C30:42 
2C38:3D 
2C40:4C 
2C48:8D 
2C50:F0 
2C58:3A 
2C60:2C 
2C68:B7 
2C70:8D 
2C78:2F 
2C80:2F 
2C88:0E 
2C90:8D 
2C98:AD 
2CA0:25 
2CA8:B0 
2CB0:00 
2CB8:D2 
2CC0:8D 
2CC8:EF 
2CD0:E1l 
2CD8:E3 
2CE0:F4 
2CE8:E5 
2CFO0:E5 
2CF8:F3 
2D00:E4 
2D08:E8 
2D10:BE 
2D18:A0 
2D20:E9 
2D28:EF 
2D30:EC 
2D38:F8 








2D40:EC 
2D48:A0 
2D50:BC 
2D58:E7 
2D60:F5 
2D68:A0 
2D70:A0 
2D78:A0 
2D80:E5 
2D88:BA 
2D90:F2 
2D98:F2 
2DA0:D0 
2DA8:A0 
2DB0:CC 
2DB8:A0 
2DC0:F2 
2DC8:EE 
2DD0:F2 
2DD8:c1 
2DE0:F5 
2DE8:EC 
2DF0:AD 
2DF8:AD 
2E00:AD 
2E08:F4 
2E10:A0 
2E18:E5 
2E20:E1l 
2E28:F8 
2E30:8D 
2E38:DF 
2E40:DF 
2E48:DF 
2E50:DF 
2E58:A0 
2E60:20 
2E68:0D 
2E70:20 
2E78:8D 
2E80:A9 
2E88:A0 
2E90:A0 
2E98:B9 
2EA0:A0 
2EA8:F2 
2EB0:A0 
2EB8: 8D 
2EC0:A0 
2EC8:A0 
2ED0:E5 
2ED8:F0 
2EE0:A0 
2EE8 : A0 
2EF0:A0 
2EF8:B5 
2F00:8D 
2F08:DF 
2F10:DF 
2F18:DF 
2F20:DF 
2F28:00 
2F30:00 
2F38:00 
2F40:00 
2F48:00 
2F50:00 
2F58:30 
2F60:00 
2F68:00 
2F70:01 
2F78:A3 
2F80:BE 
2F88:AF 
2F90:AA 
2F98:FD 
2FA0:65 
2FA8:48 
2FB0:E9 
2FB8:75 
2FC0:00 


E5 
8D 
EC 
D1 
8D 
A0 
A0 
F4 
F8 
El 
E3 
ES 
00 
A7 
F4 
D3 
F4 
El 
00 
EF 
EE 
BA 
AD 
AD 
EF 
E3 
E9 
F6 
E6 
AF 
DF 
DF 
DF 
DF 
A0 
20 
10 
20 
8D 
A8 
F3 
cc 
AF 
8D 
A0 
ED 
AC 
A0 
A0 
F6 
C1 

A0 
F5 
A0 
B3 
B4 
A0 
DF 
DF 
DF 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
A4 
A2 
AB 
AF 
41 
E5 
61 

48 
EF 
63 


EE 
8D 
EF 
BE 
A0 
A0 
A0 
F2 
A0 
E9 
F4 
A0 
A0 
F3 
ES 
FB 
A0 
E9 
C3 
EC 
A0 
8D 


è 


F2 
F4 
F8 
E5 
E9 
00 
DF 
DF 
DF 
DF 
A0 
20 
0F 
20 
8D 
E3 
AC 
C2 
B1 
A0 
F0 
E5 
8D 
A0 
A0 
F5 
F0 
A0 
E5 
BA 
A0 
B3 
DF 
DF 
DF 
DF 
00 
00 
00 
DE 
00 
00 
00 
00 
15 
17 
26 
2E 
38 
6A 
65 
48 
El 
69 
41 
DC 
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V AO IEP SOHEN 


ProDOS 8 
version 1.2 


Les versions de ProDOS fleurissent aussi rapidement que les 
versions de ‘Système’ sur le Macintosh. ProDOS 8 version 1.2 
présente des améliorations appréciables, particulièrement pour 
les possesseurs d'Apple IIGs. Si votre revue préférée n'est pas 
encore autorisée à mettre le fichier ProDOS (© oblige...) sur 
ses disquettes, les revendeurs agréés sont compétents pour le 
distribuer. 


Outre la correction de quelques bugs, la version 1.2 donne 
l'heure : l'horloge du GS est reconnue, GET_TIME fait 
maintenant son office normalement. Sur un //e, la carte horloge 
Thunderclock fonctionnera de 1986 à 1991 grâce à la nouvelle 
table de ProDOS. La version 1.1.1 se trouvait, elle, limitée à 
1987. 


Le ‘SmartPort’ est reconnu comme tel et peut piloter quatre 
volumes, contre deux avec les versions précédentes ; ils se 
verront affectés S5/D1, S5/D2, S2/D1 et S2,D2 (ceci n'est vrai 
que s'il n'y a pas de lecteurs connectés au port 2). Le cas se 
présente sur le IIGs équipé de deux Unidisks et une carte 
d'extension mémoire : on trouvera l'Unidisk1 en S5/D1, 
l'Unidisk2 en S2/D2 et le disque virtuel /RAMS en S5/D2. 


L'ordre de recherche des volumes par ON_LINE a été modifié 
et, lors d'un démarrage par recherche des ports (option SCAN 
du tableau de bord), le lecteur 140Ko connecté au port 6 
passera après le SmartPort. 


Lors du ‘boot’, ProDOS 8 cherche un éventuel ‘driver’ du 
réseau AppleTalk avant de chercher le premier fichier 
‘système’. 


L'octet Machld en $BF98 ne permet toujours pas à un 
programme de lever l'ambiguïté : est-on sur un //e ou un IIGs ? 
Bien sûr, il est posibble de se décider en testant de nombreux 
points de la mémoire, à partir de $D742 la routine horloge 
écrite en 65816 par exemple. 


On trouve dans cette version des modifications moins visibles, 
telles le masquage des interruptions durant les appels au MLI, 
l'arrivée d'une routine de lecture de blocs simple d'accès. 


La volumineuse mise à jour de Beneath Apple ProDOS pour les 
versions 1.2 et 1.3 donne l'ensemble des modifications avec un 
détail des adresses et du fonctionnement de ProDOS ; elle est 
disponible par correspondance auprès de Quality Software 
($22,50 franco). VIF à Paris, distribue également les documen- 
tations techniques qui font défaut dans les emballages 





La crapule 


Enquête policière 
Jeu pour Macintosh 
512Ko et Plus 


Voici encore une création de 
Jean-Louis Le Breton (res- 
ponsable et principal auteur 
de Froggy Software) que 
nous avons beaucoup 
appréciée, bien que n'étant 
pas encore parvenus au bout 
de l'enquête à mener, et 
après être morts un nombre 
de fois respectable ! Nous 
tenons à souligner, outre la 
qualité du jeu, tant par le 
scénario que graphisme, 
trois innovations que l'on 
aimerait trouver plus 
fréquemment : 


+ la disquette ne comporte 
pas de protection, la 
documentation expli- 
quant : “Ce jeu a été écrit 
en Turbo Pascal. Il n'est 
pas protégé contre la copie. 
Honte aux pirates. Vive 
Froggy.” ; 

e il est possible de 
s'exprimer en ‘petit nègre” 
(ouvrir porte), ou en bon 
français (j'ouvre la porte) ; 
une courbe de réussite 
vous indique à tout 
moment l'évolution du 
parcours. 


Enfin, vous avez la pos- 
sibilité de contacter Froggy 
Software, en cas de déprime 
totale, pour obtenir la 
solution du jeu. Il y a peu 
d'éditeurs français ; celui-ci 
étant en outre de qualité, 
profitez-en ! 


Froggy Software 
34, avenue Henri Chevreau 
75020 Paris 


G 
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Apple est en passe de gagner son 
pari. Les Macintosh sont pris au 
sérieux et s'implantent dans les 
entreprises. L'annonce des Mac 
IT (qui devraient maintenant 
commencer à être disponibles au 
compte-gouttes) a définitivement 
ouvert les yeux de nombreux 
chefs d'entreprise qui ne juraient 
jusqu'ici que par Saint MS-DOS. 
L'étonnant, c'est que cette 
consécration du Macintosh se 
produit précisément au moment 
où IBM annonce une série de 
micro-ordinateurs qui représente 
probablement le standard des cinq 
prochaines années. 


Conséquence : Apple est 
désormais assuré d'être l'un des 
survivants de la guerre de la 
micro-informatique qui n'a pas 
fini de faire des victimes. Tout 
est-il donc rose dans le ciel de 
Cupertino ? Pas forcément. Car il 
faut bien reconnaître que, malgré 
son interface imitée par tous et 
malgré sa souris et ses fenêtres, 
le Macintosh manque encore 
d'outils de développement 
“intelligents” (et notamment des 
langages type Prolog ou 
VP-Expert) qui commencent à se 
multiplier sur les ordinateurs 
MS-DOS et permettront de créer 
les programmes de demain. Il ne 
faudrait pas que ce retard se 
prolonge. 

Or, voici précisément qu'Apple 
se dégage quelque peu de l'appui 
logistique donné aux logiciels. 
Une filiale a été créée, (au départ 
à 100%, puis qui deviendra dans 
un an indépendante) qui reprend 
la plupart des activités “soft” de la 
firme à la pomme. Ainsi, 
Appleworks, MacWrite, Mac- 
Project, MacDraw, MacTerminal, 
etc. ne porteront plus éternel- 
lement le logo d'Apple. 
Officiellement, il s'agit de mettre 
tous les développeurs sur un 
même pied d'égalité pour les 
encourager à mettre au point de 
nouveaux logiciels. Selon 
certains, il s'agit aussi de 
contrebalancer la position 
dominante de Microsoft, trop liée 
à IBM. Reste à voir comment se 
traduira cette nouvelle politique 
dans les faits. Il est parallèlement 
intéressant de noter que cette 
décision avait été anticipée par 
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Micro-informations 
Jean-Michel Gourévitch 


Guy Kawasaki, “évangéliste du 
logiciel” chez Apple, et 
notamment chargé de veiller à ce 
que tous les logiciels respectent 
bien l'interface Macintosh. 
Kawasaki a quitté Apple voici 
quelques mois pour diriger 
ACIUS. Derrière cette raison 
sociale aux consonnances latines 
se cache tout simplement la filiale 
américaine d'ACI, qui va vendre 
aux États-Unis un logiciel dont le 
nom de code a longtemps été 
“Silver surfer”, mais qui sera 
finalement lancé sous le nom de 
“Fourth Dimension”. Eh oui, il 
s'agit bien de notre 4D... 


Apple se retirerait-il complè- 
tement du logiciel ? Pas vraiment. 
Car, elle gardera dans son verger 
plusieurs secteurs. D'abord les 
langages de programmation 
précédemment évoqués, et pour 
lesquels il est temps de mettre les 
bouchées doubles. Ensuite les 
systèmes. Et notamment Unix. 
La version A/UX, qui sera 
proposée sur Macintosh II dès 
septembre (à condition de rajouter 
au micro une unité de gestion de 
la mémoire par page basée sur le 
coprocesseur Motorola 68851) 
offrira des possibilités de 
communication avancée 
(connexion possible à Ethernet, 
Appletalk et système de 
messagerie standard Unix) tout 
en ayant accès à la boîte à outils 
du Mac, ce qui permettra donc de 
développer des applications Unix 
ayant l'aspect classique des 
applications Macintosh. 
Nombreux débouchés possibles 
dans l'enseignement supérieur et 
le domaine technique. Et 
fonctionnement en multitâche… 


Le multitâche est encore à 
l'honneur dans le domaine des 
systèmes. Car, bien sûr, Apple se 
garde sous le coude tous les 
systèmes, finder, etc. Et voici 
précisément qu'on travaille à 
Cupertino sur un nouveau 
système d'exploitation dont le 
nom de code est encore 
“Juggler”. Et ce système destiné 


aux Mac II, serait (à terme, car 
les premières versions se 
contenteraient de fonctionner par 
interruptions) multitâche, utilisant 
lui aussi le coprocesseur 68851. 
Se présentant comme le célèbre 
“switcher”, il permettrait de faire 
tourner simultanément plusieurs 
programmes, d'effectuer des 
impressions en tâche de fond, 
tout en faisant fonctionner un 
autre logiciel. Bref, un rêve sur 
micro. Quant au “Servant” 
développé par Andy Hertzfeld, il 
ne semble finalement pas 
qu'Apple l'ait retenu. Hertzfeld 
pourrait encore le perfectionner et 
le vendre directement à tous ceux 
qui n'ont encore que des 
vulgaires Macintosh ou 
Macintosh Plus (ce qui constitue 
cependant encore la quasi-totalité 
des utilisateurs de Mac...). 


Chez Apple, on ne cesse de 
penser à l'avenir. Ce rôle de 
visionnaire semble particuliè- 
rement dévolu à Jean-Louis 
Gassée. Des propos qu'il a tenu 
au cours des derniers mois, on 
peut retenir : l'importance des 
RNIS (ces nouveaux réseaux de 
transmission qui permettront de 
transmettre aussi bien la voix que 
les données à des vitesses quatre 
fois supérieures à celles 
d'aujourd'hui) et des nouveaux 
moyens de stockages. 


La disquette de 800Ko ne tardera 
pas à devenir aussi obsolète que 
celle de 143K0o de l'Apple //. Un 
coup d'œil aux nouveaux médias 
permet de juger la rapidité de 
l'évolution les disquettes 
développées par Bernouilli 
permettent déjà de stocker 20 
Méga-octets, soit l'équivalent 
d'un volumineux disque dur. 
Elles sont utilisées par la firme 
Bering dans son système Totem. 
Et la firme américaine Jasmine 
(qui avait déjà présenté un disque 
dur à 550 dollars, soit moins de 
4000,00 F), utilise des disquettes 
Kodak DTC de 20 Mégas. 

Jean-Louis Gassée a également 
laissé entendre que Bill Atkinson, 
l'auteur de MacPaint, travaillait à 
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un produit révolutionnaire 
utilisant une interface encore plus 
conviviale pour remplacer le 
clavier. Avec la mise sur le 
marché du IIGs et du Macintosh 
IT, la nécessité d'une impression 
en couleurs est devenue plus 
aiguë. On travaille donc chez 
Apple d'arrache-pied à la mise au 
point d'une véritable imprimante 
couleurs (utilisant la technologie 
du jet d'encre ou celle du laser) à 
un prix restant abordable. Pas si 
facile. 


Enfin, il va falloir assurer l'avenir 
du Macintosh II. Jean-Louis 
Gassée a annoncée qu'Apple 
allait publier les spécifications du 
Nubus, permettant ainsi aux 
fabricants de cartes et aux 
développeurs de construire des 
cartes intelligentes contenant des 
ROM communiquant directement 
entre elles sans recours au 
processeur. Le Mac IT a d'ailleurs 
déclenché une frénésie 
d'annonces de programmes et de 
cartes d'extension. 


Le Macintosh II 
au programme 


BrainPower, l'auteur de 
Statview — l'un des meilleurs 
programmes de statistiques pour 
le Mac — a annoncé une nouvelle 
version pour le II utilisant le 
coprocesseur 6881, l'accélérateur 
de virgulle flottante, et capable 
d'adresser 2 Gigaoctets de 
mémoire. Ce programme 
permettant des régressions à 
variables multiples, etc. sera 
vendu dès juillet pour 450 
dollars. 


Côté cartes d'extensions, c'est la 
surnatalité. Supermac Tech- 
nology, propose des cartes 
graphiques (1365 x 1024 points 
en monochrome et 1024 x 768 en 
couleurs). Tout comme AST 
Research, qui a développé des 
cartes d'extension mémoire, des 
cartes sorties, et la carte 386 
permettant une émulation 
MS-DOS. Sigma Designs, a 
développé Laserview, un 
moniteur monochrome et son 
adaptateur permettant une 
résolution de (1664 x 1200 
points) vendus 2300 dollars. 





Cette carte fonctionne également 
sur le Mac SE. Et ce n'est qu'un 
début. Au programme, pour très 
bientôt : d'autres cartes avec 
co-processeurs pour faire 
fonctionner des programmes 
MS-DOS, un déluge de cartes 
vidéo, communication ou 
mémoire, des systèmes 
d'acquisition des données, ou de 
contrôles de processus pour 
environnements scientifiques ou 
de production en usines, des 
cartes musicales, etc. 


Macintosh Plus, 
toujours du 
graphisme 


Sur le front du Macintosh Plus, la 
source des nouveautés ne se tarit 
pas encore. Voici d'abord, 
importé chez nous par 
P-Ingéniérie, l'Adobe Illus- 
trator d'Adobe (créateur du 
langage PostScript). Un véritable 
outil de création graphique, bien 
sûr basé sur le langage de 
description graphique PostScript, 
qui définit les images à l'aide de 
droites et de courbes précises et 
non de points. On peut utiliser 
comme base de travail une 
photographie numérisée, un 
croquis ou un document 
MacPaint, et ensuite la 
transformer, la reprendre, 
l'enrichir, ajouter des légendes, 
pivoter, agrandir, réfléchir, 
déformer certains détails. Le 
résultat final peut être imprimé 
sur une imprimante Laserwriter, 
ou une Linotronic 300 (définition 
de 2540 points par pouce). Pour 
les tirages couleurs, Adobe 
Illustrator imprime séparément les 
quatre films couleurs. À côté de 
ce véritable programme graphique 
professionnel, MacPaint a 
soudain l'air d'un jouet pour 
élèves de maternelle. Si ce 
logiciel vous intéresse, Pom'’s 
peut vous faire parvenir contre 
80,00 F, une disquette de 
démonstration en anglais qui en 
dit long sur les possibilités de ce 
programme vendu 5400 F HT. 

Laserware, a d'autre part 
développé aux États-Unis un 
autre programme graphique 
générant automatiquement du 


code PostScript et produisant des 
films séparés pour les couleurs : 
c'est Laserpaint, composé d'un 
module de dessin, d'un module 
de peinture, et d'un modèle de 
texte permettant le crénage, etc. 
Prix 495 dollars. 


Toujours de la 
PAO... 


Sur le front de la publication 
assistée par ordinateur, on ne 
désarme pas. Tandis que 
PageMaker sort sa version 2.0, 
voici qu'apparaît Scoop, de 
Target Software, un logiciel 
de mise en page (jadis connu 
sous le nom de Solo), qui promet 
de ne pas limiter ses utilisateurs 
(comme ceux de Page Maker) à 
des formats rigides et à des 
images rectangulaires, le texte 
s'enroulant automatiquement 
autour d'images même 
irrégulières. On peut aussi créer 
simultantément les textes et les 
graphiques. 

Voici encore Xpress de Quark, 
riche de nombreuses possibilités 
typographiques, de crénage de 
précision, au 1/100e de la largeur 
d'un caractère, d'habillage 
d'illustrations irrégulières, etc. 
Bref, un logiciel dont on reparlera 
à coup sûr. 


À remarquer, encore la version 
III de MacPublisher, de 


Boston Publishing Systems, 
que Lettraset n'a finalement pas 
adoptée, lui préférant Ready Set 
Go 3.0. Cette nouvelle version 
considérablement améliorée, et 
fonctionnant en couleurs sur le 
Macintosh IT possède des niveaux 
de gris réglables par incréments 
de 10%, des possibilités de 
rotations, une  césure 
automatique, etc. 

Enfin, Office Talk est à la fois 
un système de communication et 
de publication, compatible 
MS-DOS et Macintosh, qui 
permet de s'échanger des 
fichiers, de les mettre en pages, 
d'expédier du courrier 
électronique et d'imprimer les 
documents sur Linotype. Un 
système dont nous reparlerons en 
détails. 
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Amélioration de 
textes 


Voici l'Orthogiciel Plus, la 
dernière mouture du correcteur 
orthographique de Larousse. À 
remarquer que, contrairement aux 
versions précédentes, celle-ci 
fonctionne avec MacWrite 4.5, 
ou n'importe quel fichier texte. 
On peut se constituer des 
dictionnaires particuliers (c'est 
même fortement conseillé car, en 
examinant un texte, le programme 
s'arrête sur tous les noms propres 
ou termes qu'il ne connaît pas). 
Le fonctionnement est impres- 
sionnant et impeccable. Un outil 
indispensable à tous ceux qui 
veulent éviter les fautes 
d'orthographe. Un seul regret : 
que ce programme ne fonctionne 
pas au moyen d'un accessoire de 
bureau, ce qui permettrait de lui 
faire corriger un texte sans avoir à 
quitter le traitement de texte 
utilisé. Enfin, il reste toujours la 
possibilité de le faire fonctionner 
sous Switcher… 


Bootware Software Com- 
pany, a créé Personal 
Résumé-Writer, qui aide à 
écrire... non pas des résumés 
(gare au contre-sens), mais des 
curriculum vitæ. On tape les 
informations dans des fenêtres 
pré-définies, et le programme met 
le document en page 
conformément aux spécifications 
qui ont été précisées. Prix : 30 
dollars pour un seul nom et 595 
dollars pour un nombre illimité de 
noms (pour les professionnels du 
CV ou du recrutement). 

Powerpoint de Forethought 





Inc. permet, lui, comme More, 
de réaliser des diagrammes pour 
présentations d'organigrammes, 
cartes, etc. Les graphiques et 
textes peuvent être importés 
d'autres programmes Macintosh, 
les écrans sont imprimés sur 
Laserwriter. Prix : 395 dollars. 


Logiciels 
spécialisés 


Pour les actions, The Right 
time de TBSP est un logiciel 
graphique d'aide à la décision 
boursière donnant des indications 
sur le moment d'achat ou de 
vente. Prix : 399 dollars. Est-ce 
le bon moment pour l'acheter ? 


Ciné Mac 


Beck-Tech a créé Mac- 
Movies, un programme 
spectaculaire, permettant d'ani- 
mer des images, plus simple que 
VideoWorks et vendu 99 dollars. 
Mac Movies est composé de 
quatre modules, permettant de 
visualiser une série de documents 
MacPaint, de comprimer les 
documents et d'enchaîner les 
documents ensemble. On peut les 
voir sous forme de films et relier 
des films les uns aux autres. À 
noter que le Mac commence à 
envahir les studios d'Hollywood. 
On trouve ainsi des logiciels 
permettant comme ScriptWriter 
d'écrire des scripts sur deux 
colonnes (avec numération 
automatique des scènes, 
placement des dialogues, etc) et 
Story Boarder, un programme 
de dessin permettant de 


Universal File Conversion 


De nombreux lecteurs cherchent vainement ce 
programme chez les revendeurs français. Il est 
. possible de le commander directement aux 
États-Unis ($44,95 franco, indiquer le numéro de 


carte VISA) auprès de : 

Quality SoftWare, 21601 Marilla Street, 
Chatsworth, California 91311. 
Rappelons que ce programme permet de convertir 
les fichiers d'un système d'exploitation à l'autre : 
DOS 3.3, ProDOS/SOS, CP/M et Pascal. 
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programmer les séquences d'un 
film avec les effets de transitions, 
etc. 


Des utilitaires 


Ce sont les programmes 
accessoires qui rendent la vie plus 
facile. Les utilisateurs de Mac les 
connaissent bien. Voici d'abord 
des templates, ces formes 
prédéfinies qu'il ne reste plus 
qu'à remplir, ou ces programmes 
déjà mâchés. Dans cette dernière 
catégorie, TBI a réalisé avec 
l'aide de 4D un programme de 
gestion agricole. Dans la 
première, Aldus, l'éditeur de 
PageMaker, distribué en France 
par ISE Cegos, a étudié un 


Portfolio. Il s'agit de maquettes 
prédéfinies pour des mises en 
page avec PageMaker. Il ne reste 
plus qu'à insérer son texte ou ses 
images dans une maquette qui a 
été dessinée par des “pros”. Bien 
commode pour tous ceux qui 
doivent faire de l'édition 
électronique mais ne connaissent 
pas forcément l'art de la mise en 
page. 

L'impression est aussi un 
domaine de choix pour les 
utilitaires. Softstyle en est 
devenu un spécialiste. Il propose 
ainsi Laserstart Plus, 
permettant pour 145 dollars 
d'utiliser avec le Mac une 
imprimante HP Laserjet, Canon 
BP A Ltetc Ouant. à 
Colormate, c'est un logiciel qui 
permet d'imprimer en couleurs 
des documents du Mac sur 
l'imprimante ImageWriter II. 


Un autre système plus onéreux, 
Ps Jet de Laser Connection 
permet pour 3000 dollars de 
transformer une imprimante Laser 
HP Laserjet en Laserwriter. Seul 
problème : l'ensemble revient 
alors plus cher que l'imprimante 
d'Apple... 


Quant à KroyKolor de Kroy 
Sign Systems, c'est un 
appareil permettant de colorier un 
document. On l'imprime, puis on 
le glisse dans une feuille de film 
transfert, on le place dans un 
appareil et le document se colorie. 
On peut aussi réaliser des 
documents en plusieurs couleurs, 
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en découpant des morceaux de 
films transfert. La machine coûte 
995 dollars et les films 50 cents la 
page. 

À noter enfin des programmes 
qui peuvent rendre bien des 
services : la version 2 de My 
Disk Labeler de Williams & 
Macias imprime des étiquettes 
pour les disquettes éventuel- 
lement en couleurs ou sur 
Laserwriter en mêlant le 
graphique au texte. Prix : 45 
dollars. 

Et DiskEnsure et Disk- 
Express de ALSoft permettent 
de réaliser des copies de 
sauvegarde d'un disque dur, et de 
réorganiser les fichiers pour 
accélérer les accès. Pour 40 
dollars chacun. 


Côté matériel 


Remarquable le disque dur 
DataFrame 40XP de 
SuperMac. C'est tout 
simplement le plus rapide, à ce 
jour, des disques dur pour le 
Mac. Un 40 mégas pour 1900 
dollars. Puissant le Turbo Max 
de Mac Memory, un accélé- 
rateur pour le MacPlus qui le fait 
fonctionner trois fois plus vite 
avec un coprocesseur 68881 et 
1,5 Megas de mémoire pour 1300 
dollars. 

Versatile, le coprocesseur 
MS-DOS pour MacPlus de 
Dayna Mac, le créateur du 
célèbre MacCharlie, Pour 795 
dollars, on a un lecteur de 
disquettes de 360K0, une carte 
avec 256Ko de RAM extensible, 
une copie de MS-DOS. La carte 
se branche dans un des ports 
série et permet de faire 
fonctionner les logiciels MS-DOS 
dans une fenêtre. Ingénieux, 
l'accélérateur de Peak 
Systems, permettant au Mac 
SE, grâce à une carte d'utiliser le 
processeur 68020 du Mac IL. 
Même chose pour le Prodigy 
SE de Levco. Sensible, le 
Data Acquisition de GW 
Instruments, un boîtier qui 
permet de nourrir le Macintosh de 
données recueillies à l'extérieur, 
et de le transformer en 
oscilloscope, analyseur de 
spectre, etc. 


Et l'Apple // 
alors ? 


Revoici des programmes pour ce 
bon vieil Apple //. Sa version Gs 
lui a décidément donné un coup 
de jeune. Word Perfect lui a 
ainsi transposé son traitement de 
textes. Bank Street Writer de 
Scolastic Software, qui fut un 
des premiers traitements de textes 
faciles en est à sa version III et 
comprend un dictionnaire de 
correction (en anglais seulement 
hélas). Prix : 100 dollars. 


Du graphisme 


Paintworks Plus d'Acti- 
vision est un programme de 
dessin doté d'une fonction 
d'animation pour réaliser des 
dessins animés. La brosse du 
pinceau dispose ainsi de quelque 
32 formes, on peut utiliser 16 
couleurs sur une seule image, 
choisies dans une palette de 
4096, etc. Prix : 80 dollars. 
TopDraw de Styleware est un 
mélange de MacDraw pour le 
Mac et de MacPaint, avec les 
mêmes possibilités de couleurs. 


Du son 


Music Studio d'Activision 
permet de bénéficier des capacités 
sonores du Gs. On peut composer 
des partitions, utiliser 45 
instruments prédéfinis ou en créer 
de nouveaux, le tout sur 15 
canaux. Prix : 80 dollars. 


Des sciences 


Le Science  Toolkit de 
Broderbund Software corres- 
pond à la boîte de chimie qu'on 
offrait jadis aux enfants. 
Différence, tout se passe sur 
l'écran, mais avec des 
instruments de mesure qui 
fournissent, par exemple, la 
température à l'ordinateur. On 
doit disposer d'un module maître. 
Ensuite il y a deux modules, l'un 
consacré à la vitesse et à l'action, 
le second à l'activité séismique. 
Prix de chacun des deux 
modules : 40 dollars. 


Du matériel 


Il n'y avait pas de raison pour 
que l'Apple // ne bénéficie pas 
d'un numériseur d'images 
comme le Mac. A l'image du 
Thunderscan, le Scannit de 
JED Design s'installe à la place 
du ruban de l'imprimante 
Imagewriter et permet de 
numériser une image. Prix : 219 
dollars. Pas de raisons non plus 
pour que l'Apple // ne puisse pas 
lire les fichiers MS-Dos. C'est 
chose faite avec la carte the 
Envoy d'Asky. Ce contrôleur 
permet d'écrire et de lire des 
disquettes au format MS-DOS. À 
condition, bien sûr, de lui relier 
un lecteur de disquettes 
compatible. Prix du contrôleur : 
180 dollars. La firme travaille à 
des utilitaires permettant de 
convertir les données de Lotus en 
ProDOS. Pas de raisons non plus 
qu'on ne puise utiliser l'Apple // 
en usine. On le sait notamment en 
France chez Peugeot. Isaac, de 
Cyborg, est un boîtier 
d'acquisitions de données 
permettant de contrôler des 
processus, de transformer 
l'Apple en spectroscope, 
chromatographe, etc. 


Et il y avait encore moins de 
raisons de ne pas transformer 
l'Apple IIGs en un instrument 
stéréo haute fidélité. C'est fait 
avec la carte Supersonic et 
Supersonic Digitizer de 
MDlIdeas. On branche cette carte 
sur des enceintes acoustiques, et 
on obtient un son stéréo. Prix : 
60 dollars et 40 dollars pour le 
numériseur. La même firme 
propose une carte d'extension de 
mémoire jusqu'à 8 Mégas 
permettant d'utiliser les 
programmes stockés en RAM et 
préservés par une pile 
rechargeable. Prix : 350 dollars 
pour la carte d'un méga et 180 
dollars pour la carte ESP 
rampack. Dans le même esprit, 
voici la carte Speedisk de Thot 
Informatique : compatible ][+, 
Ile, IIGS, il s'agit d'un disque 
virtuel à mémoire permanente 
sauvegardée jusqu'à deux mois 
grâce à sa pile. De 384Ko à 1 
Méga, les transferts se font à 
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50Ko à la seconde sur le Gs pour 
un prix allant de 4 à 6000,00 F 
selon capacité. 


Adresses 


Bering Industries 280 
Technology Circle Scotts Valley 
CA 95066 


Jasmine Computer Systems 
555 De Haro St, San Francisco 
CA 94107 


BrainPower, 24009 Ventrura 
Blvd, Suite 250, Calabasas, CA 
91302 


Supermac Technology, 950 
N Rengstorff Ave. Mountain 
View, CA 94043 

AST Research, 2121 Alton 
Ave Irvine, CA 92714 

Sigma Designs, 46501 
Landing Parkway, Fremont CA 
94538 

Dayna Communications, 50 
S. Main St, Salt Lake City UT 
84144 

P-Ingéniérie, 226 Bd Raspail, 
75014 Paris, Tel. : 43 21 93 36 


Laserware, PO Box 668, San 
Rafael, CA 94915 


Target Software, 14206 SW 
136th St, Miami, FL 33186 


Boston Publishing Systems, 
1260 Boylston St Boston MA 
02215 

Bootware Software Compa- 
ny, 5856 Parkmor Rd Calabasas 
CA 91302 

Forethought Inc. 250 
Sobrante Way, Sunnyvale, CA 
94086 

TBSP, 8821 Alcott St, Los 
Angeles, CA 90035 

Beck Tech, PO Box 5027 
Berkeley CA 94705 

Softstyle 7192 Kalanianaole 
Hwy Suite 205 Honolulu, Hawaï 
96825 

Laser Connection, PO Box 
850296 Mobile AL 36685 

Kroy Sign Systems 7560 East 
Redfield Road Scottsdale Arizona 
85260 

Williams & Macias PO Box 
19206 Spokane WA 99219 


ALSoft PO Box 927 Spring Tx 
77383 


Mac Memory 2480 North First 
Street, San Jose, CA 95131 


Peak Systems 1201 Spyglass 
Austin TX 78746 

Levco 6161 Lusk Blvd Suite C 
203 San Diego CA 92121 

GW Instruments, PO Box 
2145 Cambridge MA 02141 
Activision PO Box 7287 
Mountain VIlew CA 94039 


Styleware 5250 Gulfton Suite 
2E Houston Texas 77081 


Broderbund Software 17 
Paul Drive San Rafael CA 94903 
JED Design 3300 Central Ave 
SE Canton OH 44707 

Asky, 4320 Stevens Creek Blvd 
Suite 287 San Jose CA 95129 
Cyborg 55 Chapel St Newton, 
MA 02158 

MDlIdeas, 1163 Triton Drive 
Foster City CA 94404 

Thot Informatique B.P. 421 
49004 Angers Cedex Tél : 41 86 
17 74 





Portez ce bel de vieux whisky eux 257 Juges qui funent 


LORTEZ CE BOL DE VIEUX HHISKY AUX 257 JUGES QUI FUMENT 


POXCEZ CE BOL DE ViEUX WHis<Y AUX 257 JUGES 
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Portez ce boi de vieux whisky aux 257 juges qui fument 


Portez ce bol de vieux whisky 
Portez ce bol de vieux whisky aux 


Portez ce bol de pieux whisky aux 257 
Portezfcelboldeluieusfuniskufoux[2 ugesfauiftument 
Portez ce bol de vieux whisky aux 257 juges qui 


/AMTINXC EN 
ce ce bol de vieux whisky aux 257 juges qui fument 


Torres ue son He 8eYxX IMIUMCKIO ayx 257 KYrec ÈYM 
Portez ce bol de vieux whisky aux 257 juges qui fument 


Portez ce bol de vieux whisky aux 257 juges qui fument 
2PANMOIANA HN DAME IN RRANIE QHEUNT NE EUII AXNA “HA FIN 1 
POrTEL CE BOL d= lMLEUT MHISHY SAUT 257 
Ponte ce bol be bieux phirky aux 257 œuger ul pument 


Portez ce bol de vieux whisky aux 


Partez ce bel de vieux nitsleg on 257 joges qui fament 


Portez ce bol de vieux whisky aux 257 juges qui 


Bottes ce bol de Lieux 


Portez ce bol de vieux whisky aux 
Portez ce bol de vieux whisky aux 257 juges 
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Portez ce bol de vieux Whisky aux 
Portee ce bol de vieux 


Pontez oc Bol de vieux wAlSRy aux 057 juges qui fument 
Portez ce bol de vieux Whisky aux 257 juges qui fument 
Portez ce bol de vieux whisky aux 257 juges qui fumnent 


Portez ce bol de vieux whisky aux 257 juges qui 
Portez ce bol de vieux whisky aux 


Portez ce bol de vieux whisky aux 257 Juges qui fument 
Portez ce bol de vieux whisky aux 257 juges qui fument 

Portez ce bol de Vieux Whisky aux 
Percez ce bol de vleux wblsky aux 257 fuges qui fument 
Portez ce bol de vieux whisky aux 25 


7+bhIV FI L+l TI IOIIX KAODIZ FIV 257 BI PIQ WIJIHk 


7+DAMV M L+i TI INIIV VSND1Z FIV 
Ponte ce bot de weux way aux 257 jugea qu fament 


Portez ce bol de vieux whisky sux 257 juges qui fument 
Portez ce bol de uieux whisky aux 257 juges qui funent 


Portez ce bol cle vieux &hiskÿ aux 25 


Pertez ce bol de vieux whisky sun 257 juges qui fument 
Portez ce bol de vieux whisky oux 257 juges qui fument 
Portez ce bol de vieux whisky aux 257 juges 


Portez ce bol de vieux whisky aux 257 
Portes ce bol de vieux whisky aux 257 juges qui furnent 
Poe à Gil E de DR an 257 ge qi ment 


PORTEZ CE BOL DE VIEUX WHISKY AUX 257 
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Les disquettes Mac B à Mac 1 


Ces disquettes contiennent des programmes ou documents ‘domaine public’ ou ‘Freeware’ : elles 
sont le résultat d'une sélection coinjointe de Pom's et du Club Apple parmi les 25 disquettes 
initialement proposées par le Club Apple. Cette réduction de 25 disquettes en 8 correspond à une 
élimination de nombreux programmes qui soit ne fonctionnaient pas sur Macintosh Plus, soit 
présentaient un intérêt pratique réduit. Vous trouverez ci-dessous un ‘catalogue’ des disquettes 
avec, pour chaque article, une brève description. 





Disquette Mac B - Polices de caractères 


Andover 12 — APL 12 — ASCII 12 — Bookman* 14/24 — Boxes 9/10/12 — Broadway 24 — Century 18/24 
Chancery 24 — Chicago by night 12 — Circus 12/18/24/36 — Cirth 48 — Cursive 12 — Cyril 12 
East Orange 12 — Elite 12 — Elvish 12 — Eon 12 — Exeter 13 — Greek 9/10/12/14/18/24 
Hollywood 12/24 — Hood River 12 — Lineal 18 — Mars 18 — London 18/36 — Long Island 12/18. 





Disquette Mac C - Polices de caractères 

N Helvetica Narrow* 14 — Ophir 12/24 — Palo Alto 9/12/18/24/36 — Park Avenue 18 
Philly 9/1 0/12/18/20/24 — Pica 12 — Princeton 12/24 — Ravenna 12/24 — Runes 12/24 — Santiago 12 
Silicon Valley 12 — Stencil 12/24 — Symbol* 9/12/18/24 — Tiny 12 — Toronto fixe 9 — Vectors 9/12 
Zapf Dingbats* 18. 


* les polices marquées d'une étoile ne sont pas celles de la ‘Laser Writer’ portant les mêmes noms. 





Disquette Mac D - Accessoires de bureau 


ArtThief pour visualiser des images MacPaint ou FullPaint, copier des images plus grandes 
que les fenêtres de ces applications. tout ceci sans quitter l'application en cours. 


Ascii.DA pour connaître immédiatement le code ASCII d'un caractère, en décimal, en 
hexadécimal et en octal. 


FKEY à la fois accessoire et application. Il permet l'installation de ‘Mini-programmes’ 
semblables, dans l'esprit, aux accessoires de bureau, mais accessibles depuis une 
touche de fonction tout comme ‘Commande-1’ provoque l'éjection de la disquette du 
lecteur interne, ou ‘Commande-3’ la copie de l'écran sur disquette.Voici la liste des 
fonctions fournies sur la disquette Mac D : 


ASCins pour saisir n'importe quel caractère, même s'il n'est pas accessible 
directement au clavier. 

ASClip idém, mais le caractère est placé dans le ‘presse-papiers’. 

BigCursor la taille des curseurs est doublée. 

Clippy place dans le ‘presse-papiers’ les caractères spéciaux. 

ComKey pour lire la zone ‘commentaire’ des fichiers. Ne fonctionne pas en HFS. 

DA Key pour essayer un accessoire sans l'installer dans le menu é. 

FadeKey pour ‘éteindre’ momentanément l'écran. 

PanicKey le Mac se défoule à votre place ! 

ScreenToClip place la partie de l'écran de votre choix dans le ‘presse-papiers”. 

SetSound pour régler le niveau sonore. 

ShowKey ‘catalogue’ des touches utilisées et de leurs fonctions. 

Sleep proche de FadeKey mais avec une dé. 


Poor Boy's création et installation de macro-instructions. 

Dec Maker pour les décideurs en panne d'inspiration ; cet accessoire ludique prend les 
décisions à leur place ! 

File Tools permet diverses manipulations de fichiers. 

Maxwell un jeu d'adresse et de patience. 

TheBox à la fois montre, chronomètre, et indicateur de mémoire libre. 
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Disquette Mac E - Applications 


AMAZING jeu de labyrinthe, avec plusieurs niveaux de difficulté. 
Analog Clock horloge ‘à aiguilles’. 
Backgammon célèbre jeu de société, très bien présenté. 


Banner impression de banderoles sur papier ‘listing’. 

Bricks jeu ‘casse briques’. 

Canfiels jeu de carte. 

DiskUtil utilitaire pour disquettes. Contrôle, etc. 

Fast Formatter Formatage rapide de disquettes ; 

MouliMac Conversion de fichiers au format SYLK (Excel, Multiplan, 4°" Dimension) en 


format ‘texte’. 


“w Disquette Mac F - Applications 


DataFlow programme sophistiqué pour le dessin d'algorythmes. 
Reversi jeu de reflexion. 

yapu utilitaire pour ImageWriter. 

Enigma superbe jeu du type Rubik cube, mais avec deux cercles croisés. 


FDA Sorter tri alphabétique des articles dans les menus. 
File Diddler manipulation de fichiers ‘texte’. Ajoute ou enlève certains caractères de 


contrôle. 
HexPuzzle jeu sur une valeur hexadécimale. 
lago jeu de reflexion. 


ww Disquette Mac G - Applications 


ResEdit éditeur de ressources. 

Icon Editor éditeur d'icônes et curseurs. 

JClock installe l'heure dans la barre de menu. Elle y reste même si vous changez 
d'application. 

Life jeu de la vie extrêmement rapide écrit par l'auteur de MacPaint. 


Missile Command jeu d'action. 


« Disquette Mac H - Applications 


MacBILLBOARD éditeur d'affiches. Permet l'agrandissement et l'impression d'images 
MacPaint jusqu'à 32 fois. 


MacWait remplace le curseur en forme de montre par une montre animée. 
MenuEdit éditeur de menus. 

Packlt compacteur de fichiers 

Social Climber jeu d'adresse. 

Solitaire jeu de reflexion. 

WaveMaker éditeur de sons évolués. 





Disquette Mac I - Applications 


Snooker jeu de billard très réaliste et comportant de nombreuses options : billard 
français, américain, nombre de billes, angle d'attaque variable, etc. 

SystemVersion donne le numéro de version et la date de création du fichier système 
courant. 


Adventure of Snake jeu d'adresse. 
ThinkTank to WP conversion de fichiers ThinkTank en fichiers ‘texte’ utilisable depuis un 
logiciel de traitement de textes. 
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Disquettes Apple J[ Macintosh Accompagnement 
E.P.E. 5.1 - 140Ko 200,00 F C1  MacRaccourci 200,00F C1 A J[ 140Ko 1/2 60,00 F [] 
E.P.E. 5.1 - 800Ko 200,00F C3  MacAstuces  200,00F C1 AJ[140Ko3 60,00F C] 
Echange E.P.E. 5.0/5.1 -140Ko 80,00 F C1 Mac ‘A’ 80,00 F C1 A] 140Ko4 60,00F [] 
Echange E.P.E. 5.0/5.1 -800Ko 80,00F [1  Mac‘B' 80,00 F [] AJ[140Ko5  60,00F ©] 
Pascal - 140Ko 80,00 F [J  Mac‘C’ 80,00F [1 AJ[140Ko6 60,00F C1 
Max (moniteur étendu) - 140Ko 150,00 F C1 Mac ‘D’ 80,00 F C1 A]140Ko7 60,00F [] 
Dominos - 140Ko 80,00F C1]  Mac'E’ 80,00F C1 AJ140Ko8 60,00F [] 
COGO - 140Ko 200,00 F C1 Mac ‘F' 80,00F C1 AJX140Ko9 60,00F C] 
Ludologic - 140Ko 80,00F [1  Mac‘G’ 80,00F [] AJ[140Ko10 60,00F C] 
Ordico - 140Ko 200,00 F C1 Mac 'H’ 80,00F [1] AJ 140Ko11 60,00F [] 
BananaSoft - 140Ko 200,00 F C1 Mac‘ 80,00F C] AJ140Ko12 60,00F [] 
A] 140Ko13 60,00F [] 
A][140Ko 14 60,00F C] 
A][140Ko15 60,00F C1 
Recueils Pom's Mac 14/15/16  150,00F [] AJ 140Ko16 60,00F [] 
Mac 17 80,00 F C1 A][140Ko17 60,00F [] 

Numéro 1 (Revues 1 à 4) 140,00F []  Mac18 80,00 F [1] AJ[140Ko18 60,00F © 
Disquettes A ][ 140Ko 1à4  200,00F [1 Mac 19 80,00 F [1 AJ[140Ko19 60,00F [] 
Numéro 2 (Revues 5 à 8) 140,00F [] Mac 20 80,00F [1 A]J140Ko20 60,00F [] 
Disquettes A ][ 140Ko5à8 200,00F [1  Mac21 80,00 F [1 AJ[140Ko21 60,00F C] 
Numéro 3 (Revues 9 à 12) 140,00F [J  Mac22 80,00F C1] AJ 140Ko22 60,00F C] 
Disquettes A ][ 140Ko 9 à 12 200,00F [7 Mac 23 80,00 F [J AJ[140Ko23 60,00F OC] 
Mac 24 80,00 F CJ A[140Ko24 60,00F [] 
reliures toilées Mac 25 80,00 F [2 AJ[140Ko25 60,00F [] 
pour 6 numéros, soit un an 60,00 F [I  Mac26 80,00 F C1 A] 140Ko26 60,00F C1 
Mac 27 80,00 F C] A][140Ko27 60,00F [] 
Mac 28 80,00 F [] AJ[140Ko28 60,00F [] 
Apple ][ 800Ko 3'5 numéro 29  80,00F ©] Mac 29 80,00 F © A][140Ko29 60,00 F [] 
Apple ][ 800Ko 35 numéro 30  80,00F C1 Mac 30 80,00F C1] AJ140Ko30 60,00F [] 
Revue n° 4 85,00F CO Revue n° 7 85,00F ©] Revue n° 8 85,00F OC] 
Revue n° 10  40,00F [1 Revue n° 11 40,00F © Revue n° 12 40,00F [] 
Revue n° 13  40,00F [] Revue n° 14 40,00F CO Revue n° 15 40,00F C] 
Revue n° 16 40,00F © Revue n° 17 40,00F CO Revue n° 18 40,00F [1 
Revue n° 19 40,00F [] Revue n° 20 40,00F C] Revue n° 21 40,00F ©] 
Revue n° 22 40,00F ©] Revue n° 23 40,00F C] Revuen° 24  40,00F [] 
Revue n° 25 40,00F [] Revue n° 26 40,00F [] Revuen° 27  45,00F [] 
Revue n° 28  45,00F [1 Revue n° 29 45,00F CO Revue n° 30  45,00F [1 

Abonnements pour six numéros à partir du ___,à: 


la revue seule 


la revue et les disquettes Apple ][ 140Ko — 5' 1/4 
la revue et les disquettes Apple ][ 800Ko — 3' 1/2 


la revue et les disquettes Macintosh 


la revue, les disquettes Apple ][ 140Ko —5' 1/4 et les disquettes Macintosh 
la revue, les disquettes Apple ][ 800Ko — 3' 1/2 et les disquettes Macintosh 


1025,00 F 


225,00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 


CORTE 


* pour les envois par avion, ajoutez 15 F par numéro et/ou par disquette soit, par exemple, 90 F pour un abonnement avec disquettes. 


ee 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 


Nom : 
Adresse : 


Règlement par: Carte Bleue/VISA C1 & 
numéro de la carte 





Signature : 


Chèque bancaire [1 


Chèque postal C] 
date d'expiration _ _ __ 


2 
Mandat [] 
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Câble-interface de communication Apple/Minitel 


Cette liaison — décrite dans les numéros 27 et 28 de Pom's — est indispensable pour faire fonctionner les programmes suivants : 


+ MinBas pour Apple ][+, //e, //e+, //c et //GS* : programme permettant l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoide textes ou messages sur un serveur, ces 
messages étant préparés à l'avance avec n'importe quel programme de traitement de textes. Programme publié dans le numéro 27 
de Pom's. 

+ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
etle stockage des messages sans sortir du programme. Programme publié dansle numéro 27 de Pom's. 

+_InterPom's pour Apple ][+, //e, //e+, //c et //GS* : programme de téléchargement entre Apple ][ etou Apple ][ et Macintosh. Ce 
logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binaire, Basic.) en utilisant le Modem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

+ InterPom's pour Macintosh : même programme, mais version Macintosh. Programme publié dans le numéro 28 de Pomr's. 

+ TPom's pour Apple ][+, //e, //e+, /lc et //GS** : programme de récupération de l'annuaire téléphonique sous la forme de fichiers 
texte. Voir page 53 de ce numéro. 

+ TPom's pour Macintosh : identique à la version Apple ][. Voir page 42 de ce numéro. 

* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple IIGS ne convient pas. 

Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 

Macintosh Plus. 

** sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour connecter le 

port intégré du IIGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: câble Minitel/Apple ][+, //e, //e+, Iles avec SSC  ____ à 225,00F 
câble Minitel/Apple //c D 5 
câble Minitel/Macintosh 128 & 512Ko _— à 22,00F 
câble Minitel/Macintosh Plus, IlGs port intégré De. Ares r 


* pour les envois par avion, ajoutez 15 F par câble. 


ee 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom: RE 
Adresse : #2 
Règlement par : Carte Bleue/VISA [1 & Chèque bancaire [1 Chèque postal [1 Mandat [] 
numéro de la carte date d'expiration 


Montant à Signature : 





En plus du programme Disquette Macintosh numéro 30 
TPom's et des fichers 


MDS 68000 utilisés pour 
sa réalisation, la dis- 


quette Pom’s ‘Mac 30° Cu) 


contient l'application Ë F 
Screen Editor.lIls'agit À F 
d'un très puissant édi- À 


teur permettant la mise Icon Mask 

au point de menus, À : 

icônes, fenêtres d'alerte, Fi 
Highlighted on Gray 


‘boîtes à dialogue’ et À © 
fenêtres de tous types. À Cp) O Edit Icon 
De plus, vous trouver td 
5 A uverez ; Save {con data as fenf file 
sur la disquette deux À k 


] Load old Icon (Load old Mask} old Mask H d l 
aint. Lx ex disp ay 
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